day ko phai toan lop 1

progrỉnam bai1;

var n,i:longint;

s:real;

begin

write('N= ');readln(n);

s:=0;

for i:=1 to n do

s:=s+1/i*(i+1);

writeln('Tong la ',s);

readln

end.

42,6 x 100 : 35,5 = 120

program bai1;

var a,b,cv,dt:real;

begin

write('a= ');readln(a);

write('b= ');readln(b);

cv:=(a+b)*2;

dt:=a*b;

writeln('CHu v la ',cv);

writeln('Dien tich la ',dt);

readln

end.

program bai1;

var m,n,s:longint;

begin

write('N= ');readln(n);

write('M= ');readln(m);

if m mod 2=0 then writeln(m,' chan')

else writeln(m,' le);

if n mod 2=0 then writeln(n,' chan')

else writeln(n,' le ');

s:=m+n;

writeln('Tong la ',s);

readln

end.

program bai1;

var n,i:longint;

begin

write('N= ');readln(n);

for i:=1 to n do

if i mod 5=0 then writeln(i,' ');

readln

end.

program bai1;

var i,n,s:longint;

begin

write('N= ');readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln('Tong la ',s);

readl

end.

< = > 9n - 1 thuộc U(-15) = {-15;-5;-3;-1;1;3;5;15}

n là số nguyên < = > n = 0 

899

chuẩn đấy trên violympic mình làm rồi