Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if Abs(A)<5 then WriteLn('!!!')
else WriteLn('???');
End.
Var a,b:real;
Begin
Write('a = ');ReadLn(A);
Write('b = ');ReadLn(B);
if a*b > 0 then WriteLn('a - b = ',a-b)
else WriteLn('a + b = ',a+b)
End.
Ввести 3 числа → сложить все 3 числа → поделить получившуюся сумму на 3 → вывести результат.
короче: ввести 3 числа → вывести результат (a1+a2+a3)/3
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
a.Transform(t->t<0?t*20:t); a.Println
end.
<u>Пример</u>
n= 13
-82 6 99 -23 71 -92 50 -70 -82 37 -10 -97 92
-1640 6 99 -460 71 -1840 50 -1400 -1640 37 -200 -1940 92
24 * 32 = 768 символов на 1 странице
768 * 12 = 9216 символов на 1 странице
9216 * 1 = 9216 байт в буклете
9216 * 8 = 73728 бит в буклете
program raf105;
const a=3;
var S,P:integer;
begin
S:= a*a;
P:= a*4;
writeln('Площадь: ',S);
writeln('Периметр: ',P);
end.
<u><em>Язык PascalABC</em></u>