istok11
?>

ИНФОРМАТИКЕ Написать программу "Найти среднее арифметическое трёх чисел введенных с клавиатуры" XX= a+b+c/3 Program sr_arifm Var a, b, c, x:real Begin Writeln('Введите три числа') Readln(a, b, c) x:=??? Writeln('Среднее арифметическое=', x) end.

Информатика

Ответы

saa002

Тупо дописываем в 6 строку (a+b+c)/3

Program sr_arifm

Var a,b,c,x:real

begin

Writeln('Введите три числа') ;

Readln(a,b,c) ;

x:=(a+b+c)/3;

Writeln('Среднее арифметическое=', x) ;

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

ИНФОРМАТИКЕ Написать программу "Найти среднее арифметическое трёх чисел введенных с клавиатуры" XX= a+b+c/3 Program sr_arifm Var a, b, c, x:real Begin Writeln('Введите три числа') Readln(a, b, c) x:=??? Writeln('Среднее арифметическое=', x) end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

drozd2008
makscska22879
ietishkin
kobzev-e
Nastyakarysheva8750
tabacoffee
Irinalobanowa
ShALIGINA
Oksana-Kirakosyan1301
Вагифович
obelov
Magnolia200872
vit010916
Городничий_Коновалова384
gudachaa1480