Program lol; var a: integer; begin for a: =100 downto 1 do begin if a mod 3 = 0 then writeln(a); end; end.p.s. в строке for a: =100 downto 1 do вместо 100 вставь нужное тебе значение советую меньше 1000 а то долго считает
Спасибо
Ответ дал: Гость
ввод x = 1, y = 3
x = 3 - 1= 2
y = 2 * 2 = 4
x = 2 * 4 + 2 = 10
y = 4 + 10/2 = 9
вывод x = 10, у = 9
ответ. в результате работы программы получим: х = 10, у = 9.
Популярные вопросы