1 var s, n: integer; begin s := 25;

1 var s, n: integer;
begin
s := 25;
n := 0;
while 400 lt; s*s do begin
s := s - 1;
n := n + 3
end;
writeln(n);
end.

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

В цикле обозначено, что пока S не станет меньше 400, будет отниматься 1 от S и прибавляться 3 к N, в итоге будет выведено 15.

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


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

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

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

Войти на сайт