Задать вопрос Регистрация
Помочь другим

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

Ответы 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. 

     

     

    • Автор:

      jaida
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years