1.Написать программу о температуре тела, если температура больше 37 градусов, значит болен, иначе здоров. 2.Написать программу покупки принтера, если цена более 4500 рублей, то вывести надпись денег не хватит, иначе вывести стоимость принтера.

288

476

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

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

пятимейкер

Информатика

4,7(81 оценок)

Var n, i, a, k: integer; f: boolean; begin readln(n); for i : = 1 to n do begin a : = i; f : = true; while a > 0 do begin k : = a mod 10; a : = a div 10; if (k = 0) or (i mod k < > 0) then //если в числе есть 0, то считать что на 0 не делится, иначе замените = на < > f : = false; end; if f then write(i, ' '); end; end.