Var a,b,c,d:integer;
e:real;
begin
writeln('Введите а и б: ');
readln(a,b);
c:=a+b;
d:=a*b;
e:=(a+b)/2;
Writeln('Сумма двух чисел: ',c);
Writeln('Произведение двух чисел: ',d);
Writeln('Среднее арифметическое двух чисел: ',e);
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqIntegerWhile(i->i<>0).Average)
end.
<u>Пример</u>
24 18 -25 14 6 11 0
S=8
Электронный журнал (АСУ);
единая энциклопедия для учащихся онлайн, навигация по предметам (ИПС);
обучающие программы, позволяющие обучаться дистанционно (АСУ);
система, анализирующая успеваемость, позволяющая определять причины плохой успеваемости и давать рекомендации по ее улучшению (ЭС).
24 * 32 = 768 символов на 1 странице
768 * 12 = 9216 символов на 1 странице
9216 * 1 = 9216 байт в буклете
9216 * 8 = 73728 бит в буклете
Так бери и умножай, в чем проблема?
std::cout << 4 * -4;