Viết chương trình nhập vào một số nguyên n ( 0

20/07/2021

By Sarah

Viết chương trình nhập vào một số nguyên n ( 0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình nhập vào một số nguyên n ( 0Trả lời

Program BT;
Var n,i,s,t,d :longint;
Begin
repeat
Write (‘Nhap N : ‘);Readln(n);
until (n > 0) and (n < 10000);
s := 0;
d := 0;
t := 0;
For i := 1 to n do
Begin
s := s + i;
If i mod 5 = 0 then
Begin
d := d + 1;
If i mod 3 = 0 then t := t + i;
end;
end;
Writeln (‘a,Tong la : ‘,s);
Writeln (‘b,So cac so chia het cho 5 la : ‘,d);
Write (‘c,Tong cac so vua chia het cho 5 va 3 la : ‘,t);
end.

Trả lời