Дано: fori:=23downto8do

i изменяется от до с шагом

​

в египетском письме было более 750 иероглифов, не было гласных. иероглифы обозначали целые слоги и звуки.

var

a,m,n,k: real;

begin

readln(m,n,k);

if (m+n+k)< (m*n*k) then 

a: =m+n+k

else

a: =m*n*k;

writeln(a);

end.

в одном байте восемь бит. следовательно 100/8=12.5   ответ 12.5

var

  i,s: longint;

begin

  for i: =20 to 60 do if i mod 5=0 then inc(s,i);

writeln(s);

end.