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 (0Bình luận
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.
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.