Question

viết ct nhập vào 3 số tự nhiên x có 3 chữ số. In ra các chữ số trên các dòng tính tổng các chữ số đó

 

Answer 1

uses crt;

var a:array[1..3]of integer;

i,t:integer;

begin

clrscr;

for i:=1 to 3 do readln(a[i]);

for i:=1to 3 do

begin

write(a[i]:4);

t:=t+a[i];

end;

writeln;

writeln(t);

readln;

end.

Answer 2

Var a:array[1..3] of integer;

i,s:integer;

Begin

For i:=1 to 3 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Writeln('Cac so vua nhap la');

For i:=1 to 3 do

Writeln(a[i]);

s:=0;

For i:=1 to 3 do s:=s+a[i];

Write('Tong la ',s);

Readln;

End.