var s, k: integer;begin s := 40; for k := 1 to 7

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

Задать свой вопрос
1 ответ
Var
    s, k: integer;

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

Вывод 19

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

Илья Киричанский
хм,а можно с изъясненьем?
Магарадзе Аринка
Каким обьяснением? Копипастим код в программку PascalABC.Net, убираем левые знаки непонятных пробелов на которые бранится компилятор, нажимаем выполнить, все
Максим Межиевский
код же обычный в дощечку. либо вы его прочитать не сможете?
Ярослава
7 раз от s отнимается 3. s = 40-3*7 = 19
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт