Составить программку по схеме PASCAL ABC.Очень безотлагательно!!!

Составить программку по схеме PASCAL ABC.
Очень срочно!!!

Задать свой вопрос
1 ответ

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 agt;300;

sr:= s-k;

writeln(sr);

end.

Язык PascalABC

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт