Помогите пожалуйста.
Нужно собрать программу

Приложения:

Ответы

Ответ дал: 444ерор444
0

Начало программы в паскале это название: Program sredarifm;

Следом блок описания переменных. Тут 2 нюанса. 1. числа у нас Целые, а следовательно требуется integer. 2. нам требуются как входные так и выходные переменные, а значит их будет: 3 входных(вводимые числа) + 1 выходное (среднее арифметическое) : var a,b,c:integer;

var d:real; (Среднее арифметическое может оказаться не целым числом)

следом начинается программа, так что : begin

Теперь считываем вводимые числа с помощью команды read/readln : Readln (a,b,c);

Проводим операции над переменной d:

d:= a+b+c;

d:=d/3;    порядок объясняется особенностью среднего арифметического (сумма всех членов деленная на 3)

Далее требуется вывод переменной d благодаря write/writeln: Writeln('sa = ', d);

и закрываем программу командой : end.

Общий вид программы:

Program sredarifm;

var a,b,c:integer;

var d:real;

begin

Readln (a,b,c);

d:= a+b+c;

d:=d/3;

Writeln('sa = ', d);

end.

Вас заинтересует