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 ( 0
0 bình luận về “Viết chương trình nhập vào một số nguyên n ( 0<n <10000 a) Tính và in ra tổng tất cả S=1+2+3-+n -2+n-1+n b) Thông báo ra màn hình có bao nhiều số”
program BT;
uses crt;
var n,d: integer;
i,S,T: longint;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
S:=S+i;
if i mod 5=0 then d:=d+1;
if (i mod 3=0) and (i mod 5=0) then T:=T+i;
end;
writeln(‘a) S = ‘,S);
writeln(‘b) Tu 1 den ‘,n,’ co ‘,d,’ so chia het cho 5′);
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;
uses crt;
var n,d: integer;
i,S,T: longint;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
S:=S+i;
if i mod 5=0 then d:=d+1;
if (i mod 3=0) and (i mod 5=0) then T:=T+i;
end;
writeln(‘a) S = ‘,S);
writeln(‘b) Tu 1 den ‘,n,’ co ‘,d,’ so chia het cho 5′);
write(‘c) Tong cac so chia het cho 3 va 5 = ‘,T);
readln
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.