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.
uses crt;
var n:real;
begin
clrscr;
repeat
readln(n);
if (n<1) or (n>10) then writeln('Hay nhap lai');
until (1<=n) and (n<=10);
readln;
end.
uses crt;
var n,i,t,s:integer;
begin
clrscr;
repeat
readln(n);
until n<>0;
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
writeln(t);
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
program TimBoi4ChuSo;
var
n, i: integer;
begin
repeat
writeln('Nhap vao so nguyen n (2<n<100): ');
readln(n);
until (n > 2) and (n < 100);
writeln('Cac boi cua ', n, ' co 4 chu so la: ');
for i := 1000 to 9999 do
begin
if i mod n = 0 then
writeln(i);
end;
end.
uses crt;
var x:real;
begin
clrscr;
repeat
write('Nhap diem:'); readln(x);
until (0<=x) and (x<=10) and ((frac(x)=25) or (frac(x)=5) or (frac(x)=75) or (frac(x)=0));
writeln(x:4:2);
readln;
end.
program MultiplesOfN;
var
n, i: integer;
begin
repeat
write('Nhap vao so nguyen duong n (0<n<100): ');
readln(n);
until (n > 0) and (n < 100);
writeln('Cac boi so cua ', n, ' co 4 chu so la:');
for i := 1000 to 9999 do
begin
if (i mod n = 0) then
begin
writeln(i);
end;
end;
readln;
end.
var a:int64;
begin
read(a);
if (a<10) or (a>20) then writeln('Nhap lai: ');
while(a<10) or (a>20) do read(a);
if (a>10) and (a<20) then writeln(' Thanh cong');
readln;
end.
program vsdg;
uses crt;
var n: real;
begin
clrscr;
repeat
begin
write('Nhap so thuc do vao'); read(n);
end;
until (1<= n) and (10>=n);
readln
end.