Tính tổng bình phương trong pascal

Tất cả

Khoa học Tự nhiên

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

3 câu trả lời 2939

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. 

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.

• Hỏi từ APP VIETJACK

  Đâu là các từ khóa:
  A.Program,end,begin
  B.Program,end,begin,Readln,lop8a
  C.Program,then,mot,hai,bà
  D.lop82,uses,begin,end

Copyright © 2022 Hoc247.net

Đơn vị chủ quản: Công Ty Cổ Phần Giáo Dục HỌC 247

GPKD: 0313983319 cấp ngày 26/08/2016 tại Sở KH&ĐT TP.HCM

Giấy phép Mạng Xã Hội số: 638/GP-BTTTT cấp ngày 29/12/2020

Địa chỉ: P401, 54A Nơ Trang Long, Phường 14, Q.Bình Thạnh, TP.HCM