Написать программу для Pascal ABC на вычисление среднего балла за год. С клавиатуры вводится 4 числа.
Answers & Comments
VlaNik
Var a,b,c,d:integer; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); writeln('Введите третье число'); readln(c); writeln('Введите четвертое число'); readln(d); writeln('Среднее четырех чисел = ',(a+b+c+d)/4) end.
Answers & Comments
a,b,c,d:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('Введите четвертое число');
readln(d);
writeln('Среднее четырех чисел = ',(a+b+c+d)/4)
end.
a,b,c,d:integer;
begin
readln(a,b,c,d);
writeln('Среднее четырех чисел = ',(a+b+c+d)/4)
end.