Составить программу по схеме pascal abc.

BDE555555дима BDE555555дима    2   06.05.2019 04:46    0

Ответы
Priveee Priveee  09.06.2020 12:17

program raf105;

var s,k,a,sr:real;

begin

s:= 0;

k:= 0;

a:= 100;

repeat

 s:= s+a/2;

 k:= k+1;

 a:= a+1;

until a>300;

sr:= s-k;

writeln(sr);

end.

Язык PascalABC

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