Введены 2 числа, замените первое из них на их полусумму

Question

Информатика

Зоря

8 сентября, 20:43

Введены 2 числа, замените первое из них на их полусумму

+4

Ответы (1)

Знаете ответ на вопрос?

Вадимка · Answer 1

Program HalfSum

Uses Crt;

var a, b, tmp:real;

begin

clrscr;

write ('Введите первое число:') ;

readln (a) ;

write ('Введите второе число:') ;

readln (b) ;

tmp: = (a+b) / 2;

a:=tmp;

writeln (' Первое число после замены:', a) ;

readkey;

end.