Processing math: 0%

$\newcommand{\eps}{\varepsilon} \newcommand{\RR}{\mathbb{R}} \newcommand{\rd}{\operatorname{d}} \newcommand{\set}[1]{\left\{#1\right\}}$

Решаем задачи Абрамян на Паскале. Begin 8

Begin8. Даны два числа $a$ и $b$ . Найти их среднее арифметическое: $(a+b)/2$ .

Решение:

program Begin8;

var

a,b,SA: Real;

begin

Write('Введите число a: ');

Readln(a);

Write('Введите число b: ');

Readln(b);

SA:=(a+b)/2;

Writeln('Среднее арифметическое a и b равно: ', SA);

end.

Другие задачи из раздела Begin можно посмотреть здесь.

➤