Var n:longint;
c:real;
begin
write ('N = ');
readln(n);
if (n mod 2 = 0) and (n>0) then c:=n/4 else
if (n mod 2 = 0) and (n<0) then c:=n*5 else
if (n mod = 1) then c:=sqr(n);
write (c:0:2);
end.
1. Сначала надо перевести всё в секунды: N*60+M = время в секундах
2. Теперь найдём количество молний. Для этого всё время надо разделить на время создания одной молнии: (N*60+M)/X = искомое количество молний.
До собаки адресат, после собаки адрес почтового сервера
дано: i=4
найти: N - ?
решение:
формула: N=2i => N=2×4, N=16
ответ: 16
2 PSD формат, так как файлы Сохраняются в нем