Ввести три числа отыскать их разность и среднее арифметическое.( написать программку
Ввести три числа отыскать их разность и среднее арифметическое.( написать программку в паскаль)
Задать свой вопросprogram zz1;
var a, b, r, c:integer; //задаем переменные целого типа
begin
write( введите 1-ое число ); // вводим с клавиатуры 1-ое число
read(a);
write( введите 2-ое число ); // вводим с клавиатуры 2-ое число
read(b);
write( введите третье число ); // вводим с клавиатуры третье число
read(c);
r:=a + b + c; // вычисляем сумму данных чисел по формуле
writeln( среднее арифметическое 3-х данных чисел = , r/3); // выводим ответ
r:=a - b - c; // вычисляем разность данных чисел по формуле
write( разность 3-х данных чисел = , r); // выводим ответ
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.