Program gt;
var a,b,c,s:real;
begin
read(a,b,c);
if(abs(a)>1)or(abs(b)>1)or(abs(c)>1) then s:=(a+b+c)/3 else s:=a*b*c;
writeln(s);
end.
3 задание: 1-2 2-1 3-3 4-4
Попробуй что-нибудь о способах кодирования информации или об истории возникновения ОС Windows)))
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var y:=ReadReal('Y=');
var p:=Trunc(Frac(y)*1000);
p:=(p div 100)*(p div 10 mod 10)*(p mod 10);
Writeln('P=',p)
end.
<u>Пример</u>
Y= 29632.637823
P=126