Var n:integer;

Begin

While (n < 1) and (n > 100) do

begin 

write('Nhap n sao cho 0 < n <= 100 ');readln(n);

End;

Write('So gap 3 lan ',n,' la ',3*n);

Readln

End.

Var a,b,c,h,s,p:real;

Begin

Write('Nhap do dai canh thu nhat ');readln(a);

Write('Nhap do dai canh thu hai ');readln(b);

Write('Nhap do dai canh thu ba ');readln(c);

Write('Nhap chieu cao ung voi canh thu nhat ');readln(h);

s:=a*h/2;

p:=a+b+c;

Writeln('Dien tich la ',s:10:2);

Write('Chu vi la ',p:10:2);

Readln;

End.

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

n,i:integer;

Begin

Write('Nhap so luong so = ');readln(n);

For i:=1 to n do

Begin

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

end;

Writeln('Cac phan tu chan la ');

For i:=1 to n do

If a[i] mod 2 = 0 then write(a[i],'      ');

Writeln('Cac phan tu le la');

For i:=1 to n do

If a[i] mod 2 <> 0 then write(a[i],'    ');

Readln

End.

Program HOC24;

var i,a,b: integer;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

write('Cac so chia het cho 2 la: ');

for i:=a to b do if i mod 2=0 then write(i,' ');

readln

end.

Max = a[11] = 30

Thuật toán sợ đồ khối:

Giúp đi mn