Question

Áp dụng giải một số bài toán có sử dụng vòng lặp có cấu trúc

Bài 1: Viết chương trình tính tổng tích các biểu thức S = 1*1+1*2+…+1*10 + 2*1+2*2+…+…+ M*10. Biết rằng M là số nguyên dương được nhập từ bàn phím.

Bài 2: Viết chương trình đưa ra màn hình 2 câu: “Chao ban. Ban co khoe khong!”. In 5 lần lên màn hình trên 5 dòng khác nhau.

Bài 3: Viết chương trình tìm ước chung lớn nhất của hai số nguyên. In kết quả ra màn hình.

Bài 4: Viết chương trình tính tổng bình phương các số chẵn từ 1 đến n; với n là số nguyên dương được nhập từ bàn phím.
giúp vs ạ

Answer 1

Bài 1:

uses crt;
var m,i,j:integer;
s:longint;
begin
clrscr;
write('nhap m='); readln(m);
s:=0;
for i:=1 to m do
begin
for j:=1 to 10 do
s:=s+i*j;
end;
writeln(s);
readln;
end.

Bài 2:

uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 5 do
writeln('Chao ban. Ban co khoe khong!');
readln;
end.

Bài 3:

uses crt;
var a,b,i,ucln:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
ucln:=1;
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then
begin
if ucln<i then ucln:=i;
end;
writeln(ucln);
readln;
end.

Bài 4:

uses crt;
var n,i,t:integer;
begin
clrscr;
write('nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+sqr(i);
writeln(t);
readln;
end.