Program odin;
var a,b,c,d:integer;
x,y:integer;
begin
readln(a,b,c,d);
x:=a+b+c+d;
y:=a*b*c*d;
writeln('сумма чисел = ', x);
writeln('произведение чисел = ', y);
end.
// ------------------------------------------
program dva;
const p=3.14;
var r:integer;
s:real;
begin
writeln('Введите радиус ');
readln(r);
s:= pi * r * r;
writeln('Площадь круга = ', s);
end.
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(10,-50,50); a.Println;
a.Where(x->x>0).Select(x->x*x).Average.Println
end.
<u>Пример</u>
29 45 -32 -44 -48 25 8 -4 -25 -22
888.75
Для представления текстовой информации в компьютере используется алфавит мощностью <span>25<span>6 символов.
</span></span>
1 символ = 8 бит = 1 байт
то есть в тексте <span>"Не оставляй на завтра то,что можно сделать сегодня" 50 сиволов
50 * 1 = 50 байт или (400 бит) памяти занимает</span>
Решение задачи показано в прилагаемом файле.