Регистрация
Войти
Стать экспертом Правила
Информатика

var s, k: integer;begin s := 40; for k := 1 to 7 do  s := s - 3; write (s);end.

ОТВЕТЫ
var
    s, k: integer;

begin
    s := 40;
    for k := 1 to 7 do
        s := s - 3;
    write(s);
end.

Вывод 19

Модераторам - если нужно, то можно удалять без предупреждения

970
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам