K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

3 tháng 5 2023

Câu 3

Var st:string;

i,d:integer;

Begin

Write('Nhap xau ky tu ');readln(st);

For i:=1 to length(st) do

If st[i] in ['0'..'9'] then d:=d+1;

Write('Co ',d,' ky tu so');

Readln

End.

3 tháng 5 2023

Câu 4

Var a:array[1..1000] of integer;

i,n:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i);readln(a[i]);

End;

Write('Cac so chia het cho 3 hoac 5 la: ');

for i:=1 to n do

If (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then write(a[i]:8);

Readln

End.

Input: Số a

Output: Kiểm tra xem a là số âm hay là số dương

Ý tưởng: Sau khi nhập a, chúng ta sẽ kiểm tra xem nếu a<0 thì a là số âm, nếu a>0 thì a là số dương còn nếu a=0 thì a không là số âm cũng không là số dương

Thuật toán

-Bước 1: Nhập a

-Bước 2: Nếu a<0 thì xuất a là số âm

Nếu a>0 thì a là số dương

Nếu a=0 thì a không là số âm cũng không là số dương

-Bước 3: Kết thúc

20 tháng 3 2023

tong = 0

for i in range(1, 101):

     if i % 3 == 0 and i % 5 == 0:

          tong += i

print("Tổng các số chia hết cho 3 và 5 trong phạm vi từ 1 đến 100 là", tong)

29 tháng 8 2023

Tin tôi giúp được

29 tháng 8 2023

B có fb ko ạ? Tui ib riêng hỏi bài ạ

 

15 tháng 10 2021

undefined

16 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long m,n;

int main()

{

cin>>m>>n;

if (m+n%2==0) cout<<"Tong la so chan";

else cout<<"tong la so le";

return 0;
}