viết chương trình : cho n là 10<n<100 tính tổng hai số nguyên dương

2 câu trả lời

uses crt;

var t,i,n:integer;

begin

t:=0;

begin

for i:=1 to 2 do

write('n=');

if (10<n) and (n<100) then

t:=t+n;

end;

writeln('tong = ',t);

readln;

end.

Var n,i, S : integer ;

Begin

S:= 0;

For i:= 11 to 99 do

     S:= S + i;

Write(S);

Readln;

End.

Câu hỏi trong lớp Xem thêm