Tin học viết chương trình tính tổng của các số chẵn từ 1 đến 18/07/2021 By Adeline viết chương trình tính tổng của các số chẵn từ 1 đến
@Meoss_ * Viết chương trình như sau: Program Tinh_tong2; Uses Crt; Var i,n,S:integer; Begin Clrscr; Writeln(‘Ban hay nhap n’); Readln(n); S:=0; For i:=1 to 20 do begin if i mod 2 = 0 then S:=S+i; end; Writeln(‘ Tong cac so chan la ‘, S ); Readln; End. Trả lời
program baitap; uses crt; var i,s:integer; begin clrscr; s:=0 ; i:=1; while i <= 20 do begin if i mod 2 = 0 then s:=s+i ; i:=i+1 ; end; writeln(‘ Tong cac so chan tu 1 den 20 = ‘,s); readln; end. Trả lời
@Meoss_
* Viết chương trình như sau:
Program Tinh_tong2;
Uses Crt;
Var i,n,S:integer;
Begin
Clrscr;
Writeln(‘Ban hay nhap n’); Readln(n);
S:=0;
For i:=1 to 20 do
begin
if i mod 2 = 0 then S:=S+i; end;
Writeln(‘ Tong cac so chan la ‘, S );
Readln;
End.
program baitap;
uses crt;
var i,s:integer;
begin
clrscr;
s:=0 ; i:=1;
while i <= 20 do begin if i mod 2 = 0 then
s:=s+i ; i:=i+1 ;
end;
writeln(‘ Tong cac so chan tu 1 den 20 = ‘,s);
readln;
end.