Регистрация
ilya3694444
06.02.2020 09:42
Информатика
Есть ответ 👍

Структура запроса
количество найденных страниц
контрпример

247
487
Посмотреть ответы 1

Ответы на вопрос:

ОЛДВЖ
ОЛДВЖ
4,5(5 оценок)
Label metka; var x, l, m: integer; begin for var i: =100 to 300 do begin   x: =i ; l : = x-10; m : = x+30; while l < > m do   if l > m then        l : = l - m    else          m : = m - l;       if (m=40)  then      begin     println(x);     goto metka;     end;       end;     metka: end.

Популярно: Информатика