<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a, b, c, d: real;
Read(a,b,c,d);
Println('1)', a + b + c + d);
Println('2)', a * b * c * d);
Println('3)', a * a - d * d);
Println('4)', Sqrt(a * b * c));
Println('5)', d + b - b * c)
end.
<h2>Пример</h2><h3>23.43 -152.18 -0.13 15</h3><h3>1) -113.88 </h3><h3>2) 6952.87593 </h3><h3>3) 323.9649 </h3><h3>4) 21.5296321845033 </h3><h3>5) -156.9634 </h3>
<span>Размер левого поля 30 мм, правого 10 мм, верхнего – 20 мм, нижнего – 20 мм. Шрифт – Times New Roman, размер – 14, межстрочный интервал – 1,5. Фразы, начинающиеся с новой строки, печатаются с абзацным отступом (1,25 см). Выравнивание в тексте по ширине листа.<span>
</span></span>
<span>program axaxa;
var n,a,s:integer;
begin
readln(n);
s:=0;
while n>0 do
begin
a:=n mod 10;
s:=s+a;
n:= n div 10;
end;
writeln(s);
</span>end.
262144 байта/ 1024= 256 кбайт/ 1024=0,25 мбайт
//Блок-схема во вложении
//Pascal ABC.NET 3.1 сборка 1256
Var
x,y,z:real;
begin
read(x,y,z);
writeln((x+y+z)/3);
end.
Пример ввода:
1
2
3
Пример вывода:
2