Var i,s:integer;
begin
i:=20;
while i<100 do
begin
s:=s+i;
i:=i+1
end;
writeln('Ответ: ',s)
end.
var i,s:integer;
begin
i:=20;
repeat
s:=s+i;
i:=i+1;
until i>99;
writeln('Ответ: ',s)
end.
Раскодировка в понятный формат
Информатика наука изучающая закономерности протекания процессов передачи,хранения и обработки информации в природе,обществе,технике,а также способы автоматизации этих процессов с помощью компьютера
Вотрешение. Этонесоложно.