x: - входное число, целое
а: - целое
шаг 1.
x - делится на 5 ?
если да то ответ YES, выход
шаг 2.
а: = x-5*целое (х/5)
шаг 3
a - делится на 3 ?
если да то ответ YES, выход
шаг 4
a:=a+5
шаг 5
a - больше чем х ?
если да то ответ NО, выход
переход на шаг 3
<span>Все сильнее и сильнее высокие технологии входят в нашу жизнь. Компьютеризированные телескопы, множество гаджетов- это не воспаленная фантазия писателей, а наше время. Одной из таких "фантастических чуд"- роботы. Роботы все чаще и чаще заменяют человека на множествах работ, где "железному другу" проще, чем человеку. Посредством алгоритмов роботы решают самые запутанные задачи. К примеру, роботизированный станок используется на множествах фабрик, от производства конфет и до заводов по сборке автомобилей. Почти каждая деталь сделана специальным станком, подчиняющийся алгоритмам и командам, созданных человеком!</span>
утюг-гладить белье
мялка - мять белье.
морозилка - замораживать подукты
печка - разогревать продукты
Я так понимаю, мах слово - выводить на экран вместе с числом.
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write('max = ', a)
else
if (b>a) and (b>c) then write('max = ', b)
else write('max = ', c);
end.