Var a, b: integer;
begin
readln(a, b);
writeln('Первое число = ', a);
writeln('Второе число = ', b);
if (a + b) mod 5 = 0 then
writeln('Сумма двух чисел кратна пяти.')
else
writeln('Сумма двух чисел не кратна пяти.');
end.
2 Мбайт
но могу ошибаться ((
Var a,b,r:integer;
begin
readln(a,b);
if (a<0) and (b<0) then r:=sqr(a)+sqr(b)
else r:=abs(a-b);
write(r);
end.
Ответ 14831.5429688
Дано
800*600 разрешение65536 палитра16 кадров/сек15 камер слежения
Решениесутки = 86400 сек = 1382400 кадров
глубина пикселя 16 бит
800*600*16=7680000 бит 1 кадр
7680000бит=7500кбит
7500*1382400*15=155520000000кб=151875000мб=148315.429688Гб в сутках
10=148315.429688/x
10*x=148315.429688
148315.429688/10=14831.5429688 Гигабайт в сжатом виде за сутки