program bai1;

var a:longint;

b:boolean;

begin

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

b:=false;

writeln(a,':');

if a<0 then writeln(' -La so nguyen am ')

else write('La so nguyen duong');

if a mod 3=0 then writeln('Chia het cho 3')

else writeln('Khong chia het cho 3');

if a>7 then writeln('Lon hon 7')

else write('Nho hon 7');

readln

end.

Gồm 3 bước:
B1:Xác định bài toán:input,output
B2:Viết thuật toán:liệt kê các bước giải bài toán
B3:Viết chương trình:sử dụng ngôn ngữ lập trình để viết chương trình.

cho tớ huhu

Tính hợp lí:

a)  3 5.7 + 3 7.9 + ... + 3 59.61

b)  5 22 + 3 13 − 1 2 4 13 − 2 11 + 3 2

Hãy so sánh

a) 2 3 5 và 2 7 9

b) − 1 2 3 và − 7 6

program bai1;

var m,n,i:Longint;

begin

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

repeat

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

until n>=m;

s:=0;

for i:=m to n do

if (i mod 3=0) and (i mod 5=0) then s:=s+i;

write('S= ',s);

readln

end.

kho the to moi hoc lop 6 thui

ha xa mi nha

mat ve sinh