USES crt;
VAR i:byte; s:integer;
Function kt(x:byte):boolean;
Var i:byte;
Begin
kt:=true;
if (x mod 2=0) or (x mod 3=0) then
begin
kt:=false;
exit;
end;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
begin
kt:=false;
exit;
end;
End;
BEGIN
clrscr;
writeln('Cac so nguyen to co 2 chu so gom:');
s:=0;
for i:=10 to 99 do
if kt(i) then
begin
write(i:4);
s:=s+i;
end;
readln;
END.
viết chương trình nhập vào một số nguyên n a. In ra màn hình các số chẵn b. In ra màn hình số lớn nhất trong dãy số đó
Câu 1 viết chương trình tính giá trị biểu thức với x,y là các số nguyên dc nhập từ bàn phím. In kết quả ra màn hình Caau2 viết chương trình vào 3 số nguyên a,b,c.In ra màn hình số lớn nhất trong 3 số đó
Viết chương trình tính tích các số chẵn của số nguyên N nhập từ bàn phím sau đó in kết quả ra màn hình
Viết chương trình in ra màn hình N số nguyên. Tính tổng của các số
viết chương trình sử dụng biến mảng nhập vào n số nguyên từ bàn phím và in ra màn hình tổng các số chia hết cho 3
Câu 1 viết chương trình nhập vào 1 dãy n số nguyên bất kỳ .In ra màn hình tổng các số chia hết cho 2
Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)
viết chương trình a,nhập 1 mảng 1 chiều gồm n phần tử là số nguyên
b,in ra màn hìnhmangr vừa nhập
c, in ra màn hình các số chắn trong mảng
d,in ra màn hình các số chính phương trong mảng
