Информатика

С клавиатуры вводится 2 числа,если они оба больше 5,то найти их полусумму,иначе удвоенное произведение.


<< Предыдущий вопрос Следующий вопрос >>

Program s123;
Var a,b:real;
Begin 
Writeln('Введите значения 2 чисел'); 
Readln(a,b); 
If (a>5) and (b>5) Then a:=(a+b)/2 Else a:=(a*b)*2; 
Writeln(a);
End.

Загрузить файл
Сомневаешься в ответе?

Если сомневаешься в правильности ответа или его просто нет, то попробуй воспользоваться поиском на сайте и найти похожие вопросы по предмету Информатика либо задай свой вопрос и получи ответ в течении нескольких минут.


Смотреть другие ответы