Определите значение переменной s после выполнения фрагмента программы s : = 0; x : = 2019; while x > 0 do begin x : = x - 1; s : = s + 1; end;

kartew kartew    2   23.03.2019 21:08    9

Ответы
maks200906 maks200906  26.05.2020 16:16

program pr11;

var

s,x:real;

begin

s := 0;

x := 2019;

while x > 0 do begin

x := x - 1;

s := s + 1;

end;

write('S= ',s);

End.

Протокол:

S=2019

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика