Đáp án: viết công thức nhập vào N số nguyên từ bàn phím Hãy tính và in ra màn hình tổng của các số vừa dc nhập vào Dùng lệnh whiledo Ngôn ngữ pascal - uses crt; var S, i, n, x integer; begin clrscr; write(ʹNhap so N = ʹ); readln(N); S = 0; i = 1; while i <= N do begin write(ʹNhap so thu ʹ, i ,ʹ = ʹ); readlnx; S = S + x; i = i + 1; end; write(ʹS = ʹ, S); readln end

uses crt; var S, i, n, x integer; begin clrscr; write(ʹNhap so N = ʹ); readln(N); S = 0; i = 1; while i <= N do begin write(ʹNhap so thu ʹ, i ,ʹ = ʹ); readlnx; S = S + x; i = i + 1; end; write(ʹS = ʹ, S); readln end

uses crt;var n,t,a,ilongint;beginclrscr;write(ʹNhap vao so luong ʹ);readln(n);t = 0; i = 0; while n>0 do begin i = i + 1; write(ʹNhap vao so thu ʹ,i,ʹ ʹ); readln(a); t = t + a; n=n-1; end;writeln(ʹTong cac so ʹ,t);readln;end

Nguyễn Văn Ngoan

1 năm trước

viết công thức nhập vào N số nguyên từ bàn phím . Hãy tính và in ra màn hình tổng của các số vừa dc nhập vào Dùng lệnh while..do Ngôn ngữ pascal

Xem đáp án

42 lượt xem

2 câu trả lời

Yanquinn Khôngcótên

1 năm trước

uses crt;

var S, i, n, x : integer;

begin

clrscr;

write('Nhap so N = '); readln(N);

S := 0; i := 1;

while i <= N do begin

write('Nhap so thu ', i ,' = ');

readln(x); S := S + x; i := i + 1; end;

write('S = ', S);

readln

end.

Xuan Duc

1 năm trước

uses crt;
var n,t,a,i:longint;
begin
clrscr;
write('Nhap vao so luong: ');readln(n);
t := 0; i := 0;
while n>0 do
begin
i := i + 1;
write('Nhap vao so thu ',i,': ');
readln(a);
t := t + a;
n:=n-1;
end;
writeln('Tong cac so : ',t);
readln;
end.