//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,c):=ReadReal2();
write('P=',a+sqrt(c*c-a*a)+c);
end.
Var x,s:integer;
begin
s := 0;
read(x);
while x <> 0 do
begin
if (x mod 3 = 0) and (x mod 10 = 4)
then s := s + x;
read(x)
end;
write(s)
end.
600мб=600 000кб
600 000 КБ:500=120 фотографий всего
120×6=720с понадобиться
Ответ:720секунд
Ms Excel
Таблица во вложении