Var n,a,h,m,s:integer;
begin
writeln('Введите кол-во дней');
read(n);
if n>1 then begin
writeln('В ', n ,' сутках:');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд')
end;
if n=1 then begin
writeln('В ',n,' дне');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд');
end;<span>
end.
</span>
Уважаемые господа,
Настоящим сообщаем, что ввиду обстоятельств
непреодолимой силы (из-за сильного шторма), порт... временно закрыт и мы
не сможем поставить ваше судно под разгрузку.
Мы будем вам очень признательны, если вы задержите отгрузку
оборудования до нашего уведомления о прекращении форсмажорных
обстоятельств.
Надеемся, что эта кратковременная задержка не скажется отрицательно на графике поставок.
Если, когда, круг, ждать, цикл, повторять.
Основные правила: слушать преподавателя. Взять вещи по его разрешению. Не бегать в кабинете. Во время перемены открыть дверь кабинета,что бы комната проветрилась. Если хотите выйти во время урока,поднимите руку,спросите разрешение и выйдите.
var x1, x2, y1, y2: integer;
begin
read(x1, y1, x2, y2);
if (abs(x1 - x2) = 1) and (abs(y1 - y2) = 2) or (abs(x1 - x2) = 2) and (abs(y1 - y2) = 1) then
writeln('Может')
else
writeln('Не может');
end.