Câu 1: viết chương trình tính tổng các số tự nhiên các phạm vi từ 15 đến 25(dùng lệnh lặp For…do). Thông báo kết quả ra màn hình.
Câu 2: viết chương trình tính tổng số tự nhiên từ 15 đến 35(dùng lệnh lặp while…do). Thông báo kết quả ra màn hình.
Câu 3: viết chương trình nhập vào bàn phím các số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị chia hết cho 3 trong phạm vi từ 1 đến N,sau đó in ra màn hình và câu lệnh For…đó.
Bài 4: viết chương trình nhập vào từ bàn phím số nguyên dương N sử dụng câu lệnh điều kiện để tính tổng giá trị chia hết cho 5.trong phạm vi từ 1 đến N.sau đó in ra màn hình, sử dụng lệnh while…đó
Giúp mình với mn ơi.
$Câu 1:$
program Cau_1;
uses crt;
var i,T: integer;
Begin
for i:=15 to 25 do T:=T+i;
write(‘T = ‘,T);
readln
End.
$Câu 2:$
program Cau_2;
uses crt;
var i,T: integer;
Begin
i:=15;
while i<=35 do
begin
T:=T+i;
i:=i+1;
end;
write(‘T = ‘,T);
readln
End.
$Câu 3:$
program Cau_3;
uses crt;
var N,i,T: integer;
Begin
write(‘Nhap N: ‘); readln(N);
for i:=1 to N do
if i mod 3=0 then T:=T+i;
write(‘T = ‘,T);
readln
End.
$Câu 4:$
program Cau_4;
uses crt;
var N,i,T: integer;
Begin
write(‘Nhap N: ‘); readln(N);
i:=1;
while i<=N do
begin
if i mod 5=0 then T:=T+i;
i:=i+1;
end;
write(‘T = ‘,T);
readln
End.