Предмет: Информатика,
автор: carribean
написать на языке паскаль программу ввода четырех целых чисел и вычисления их среднего арифметического. протестировать программу на различных исходных данных и доказать правильность ее работы
Ответы
Автор ответа:
0
program fofgogjoj;
var
a,b,c,d:integer;
sr:real;
begin
Writeln('Введите 4 числа');
Readln(a,b,c,d);
sr:=(a+b+c+d)/4;
Writeln('Среднее арифмитическое чисел равно:',sr);
end.
Просто вводишь разные числа, а доказательством послужит нахождение этого же среднего арифмитического на листочке:)
var
a,b,c,d:integer;
sr:real;
begin
Writeln('Введите 4 числа');
Readln(a,b,c,d);
sr:=(a+b+c+d)/4;
Writeln('Среднее арифмитическое чисел равно:',sr);
end.
Просто вводишь разные числа, а доказательством послужит нахождение этого же среднего арифмитического на листочке:)
Автор ответа:
0
Я задал переменной значение 4.5 и сунул его в вывод. результат скинул. разницы нет. факт, что у тебя нет атрибут и вывод у тебя будет тоже такой.
Автор ответа:
0
в PascalABC.NET всё чотко
Автор ответа:
0
В этом детском паскале? тогда ясно.
Автор ответа:
0
в детском паскале легче редактировать программу
Автор ответа:
0
да, на abc вывод нормальный. но в остальных это бы не прокатило
Автор ответа:
0
Program pr;
Var a, b, c, d:integer;sr:real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
write('d=');
readln(d);
writeln('Среднее арифметическое: ',(a+b+c+d)/4:0:2);
end.
Проверить можно и письменно. Данные вводишь сам.
Интересные вопросы
Предмет: Математика,
автор: nikolaenkoilona07
Предмет: Математика,
автор: arinaguraj78
Предмет: Физика,
автор: asdasdasd123222d
Предмет: Химия,
автор: jokerrrr1
Предмет: Алгебра,
автор: Аноним