Viết chương trình ( pascal ) tính tổng bình phương các số chẵn từ 1 đến n . Với n được nhập từ bàn phím

Thị Hạnh Nguyễn Hỏi từ APP VIETJACK

đã hỏi trong Lớp 8 Tin học

· 15:32 08/12/2021

Trả Lời

Hỏi chi tiết

Trả lời trong APP VIETJACK

Quảng cáo

3 câu trả lời 10580

Hằng

3 năm trước

program bt;
uses crt;
var i,n,s:integer;
begin
clrscr;
writeln(' Nhập n : ' );Readln(n);
S:=0;
For i:=1 to n do
if (i mod 2) = 0 then s:=s+sqr(i);
Writeln('Tổng S: ',S);
readln;
end.

(+3) 0 bình luận

2 ( 5.0 )

Đăng nhập để hỏi chi tiết

Victorya

3 năm trước

Program tong_so_chan;
Uses crt;
Var
S,N,I:Integer;
Begin
Clrscr;
Write('Nhap N ');Readln(N);
S:=0;
For I:=1 to N do
If (I mod 2=0) then
S:=S+I;
Writeln('Tong cac so chan la ',S);
Readln;
End.