Даны два числа a и b.найти среднее арифметическое: (a+b)/2 !

tumoannasehko tumoannasehko    3   01.06.2019 08:40    0

Ответы
svetlanakorneev svetlanakorneev  02.07.2020 14:30
Var a,b,c:integer;
begin
readln(a,b);
c:=(a+b)/2;
writeln(c);
end.
ПОКАЗАТЬ ОТВЕТЫ
люба358 люба358  02.07.2020 14:30
Var a,b,z: real;
  begin
  write('Введите два целых числа, разделяя их пробелом: ');
  readln(a,b);
  z:=(a+b)/2;
  writeln('Среднее арифметическое равно ',z);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика