Viết chương trình in ra các số chẵn chia hết cho 5 và tính tổng với n là số tự nhiên được nhập vào từ bàn phím
huhu mình đang cần gấp lắm ai giúp với ạ mình đánh giá 5 sao và 1 lời cảm ơn ạ ( không chép mạng tự làm ạ ) cảm ơn lắm luôn :33
Viết chương trình in ra các số chẵn chia hết cho 5 và tính tổng với n là số tự nhiên được nhập vào từ bàn phím
huhu mình đang cần gấp lắm ai giúp với ạ mình đánh giá 5 sao và 1 lời cảm ơn ạ ( không chép mạng tự làm ạ ) cảm ơn lắm luôn :33
porgram tong;
uses crt;
var n,i,T: integer;
Begin
write(‘Nhap n: ‘); readln(n);
write(‘Cac so chia het cho 5: ‘);
for i:=1 to n do
if i mod 5=0 then
begin
T:=T+i;
write(i,’ ‘);
end;
write(‘T = ‘,T);
readln
End.