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.
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.
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
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)
#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;
}