С клавиатуры вводится 2 числа,если они оба больше 5,то найти их полусумму,иначе удвоенное произведение.
С клавиатуры вводится 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.
Не нашли ответ?
Похожие вопросы