Var max:integer; new:integer; begin while true do begin max:=-1; readln(new); if new mod 10 = 0 thne begin if new>max then begin writeln('Данное число больше предыдущего'); end else begin writeln('Число меньше или равно предыдущему'); end; max:=new; end else writeln('Число не заканчивается на 0'); end; end;
Более подробно: 20:02 - если не учитывать, что в часе 60 минут, то предыдущее "счастливое" время - 19:91, но это не подходит, т.к. часы не могут показывать столько, дальше аналогично: 18:81 - не подходит; 17:71 - не подходит; 16:61 - не подходит; 15:51 - подходит, значит, это - предыдущее "счастливое" время. Чтобы найти, сколько времени с 15:51 до 20:02, то есть найти, насколько 20:02 больше, чем 15:51, нужно из большего отнять меньшее: 20:02-15:51=4:11, то есть 4 часа 11 минут. ответ: 4 ч 11 мин.
Если не соблюдать технику безопасности может возникнуть замыкание и пожар или можно что-либо сломать себе, повредить технику. Основными являются - не вставать по время работы за компьютером, а так же не есть за компьютерным столом/не приносить еду в класс. Неправильная посадка может привести к искривлению и другим многочисленным проблемам, если при неправильной посадке зацепить какой-либо провод можно нанести вред технике и себе. Рекомендаций не знаю сорь, но можешь написать что нельзя есть за столом, раскачиваться на стуле и.т.д
max:integer;
new:integer;
begin
while true do
begin
max:=-1;
readln(new);
if new mod 10 = 0 thne
begin
if new>max then
begin
writeln('Данное число больше предыдущего');
end else
begin
writeln('Число меньше или равно предыдущему');
end;
max:=new;
end else writeln('Число не заканчивается на 0');
end;
end;