var s,i,n:integer;
begin
Write('n = ');
While (n > 100) and (n < 1) then
Begin
write('Nhap sai, nhap lai ');readln(n);
End;
for i:=1 to n do
s:=s+i;
write('tong la: ',s);
readln;
end.
viet chuong trinh nhap vao tu ban phim so nguyen duong N , tinh tong gia tri chia het cho 3 trong pham vi tu 1 den N , sau do in ra man hinh
viet chuong trinh nhap vao cac so nguyen tu ban phim va tinh tong cua chung.Chuong trinh dung lai khi tong lon hon hoac bang a(a la so nhap tu ban phim)va thong bao tong do ra man hinh(Free Pascal)
Giup minh voi
viet chuong trinh nhap vao so nguyen a va b . In ra man hinh ket qua a co chia het cho b hay khong moi nguoi giup em gap voi
viet chuong trinh nhap vao mang so nguyen a(toi da 100 phan tu) tu ban phim in len man hinh cac phan tu chia het cho K (khong duoc nhap vao tu ban phim khi chay chuong trinh) trong mang
Viet chuong trinh nhap vao N so tu ban phim. Tinh tong,tich,hieu cac so vua nhap vao
viet chuong trinh nhap 1 day so sau do in ra man hinh cac so chinh phuong
Câu 28: Viet chuong trinh tinh tong S - 1*1+ 2*2+3*3+...+ n*n bang cãu
lênh: For...to...do... (hoãc câu lênh While...do...). Trong dó n là môt so
nguyên nhap tù bàn phim
Viet chuong trinh nhap vao cac so nguyen a,b,c,d,e tinh tong cac so co chu so tan cung la 5 va 0
viet phuong trinh su dung bien mang phap 10 phan tu kieu so nguyen in ra mang hinh so chan
