Viết chương trình theo các yêu cầu sau
1. Nhập vào một số nguyên dương n (0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình theo các yêu cầu sau 1. Nhập vào một số nguyên dương n (0
0 bình luận về “Viết chương trình theo các yêu cầu sau 1. Nhập vào một số nguyên dương n (0<n<1000) 2. In ra các số từ 1 đến n hiển thị theo hàng ngang 3. Tính tổng c”
program Tin_hoc;
uses crt;
var i,n,tong,k:integer;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
tong:=0;
write(‘Cac so tu 1 den n la: ‘);
for i:= 1 to n do
begin
write(i,’ ‘);
tong:=tong+i
end;
writeln;
writeln(‘Tong cua cac so tu 1 den n la: ‘,tong);
write(‘Cac so le tu 1 den n la: ‘)
for i:= 1 to n do if i mod 2 = 1 then write(i,’ ‘);
program Tin_hoc;
uses crt;
var i,n,tong,k:integer;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
tong:=0;
write(‘Cac so tu 1 den n la: ‘);
for i:= 1 to n do
begin
write(i,’ ‘);
tong:=tong+i
end;
writeln;
writeln(‘Tong cua cac so tu 1 den n la: ‘,tong);
write(‘Cac so le tu 1 den n la: ‘)
for i:= 1 to n do if i mod 2 = 1 then write(i,’ ‘);
writeln;
k:=0;
for i:= 1 to n do if i mod 5 = 0 then k:=k+1;
writeln(‘Co ‘,k,’ so chia het cho 5 tu 1 den n’);
readln;
end.
Nhớ cho mik câu tlhn nha
program ct;
uses crt;
var n,i,d:integer;
S,Sl:longint;
begin clrscr;
write(‘Nhap so nguyen duong n: ‘); readln(n);
S:=0; Sl:=0;
write(‘Cac so tu 1 den ‘,n,’ la: ‘);
for i:=1 to n do
begin
write(i:3);
S:=S+i;
end;
writeln(‘Tong cac so tu 1 den ‘,n,’ la: ‘,S);
write(‘Cac so le tu 1 den ‘,n,’ la: ‘);
for i:=1 to n do
if i mod 2=1 then
begin
write(i:3);
Sl:=Sl+i;
end;
writeln(‘Tong cac so le tu 1 den ‘,n,’ la: ‘,Sl);
for i:=1 to n do
if i mod 5=0 then inc(d);
writeln(‘Tu 1 den ‘,n,’ co ‘,d,’ so chia het cho 5′);
readln;
end.
Học tốt!