program Hello;
var i,sum:integer;
begin
i:=10;
sum:=0;
While(i<100)do begin
sum+=i;
i+=1;
end;
writeln ('Сумма двузначных элементов равно ',sum)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program Hello;
var i,sum:integer;
begin
i:=10;
sum:=0;
While(i<100)do begin
sum+=i;
i+=1;
end;
writeln ('Сумма двузначных элементов равно ',sum)
end.