С клавиатуры вводится два числа. Если они оба одного знака,тонайдите их полусумму,иначе-вычислите их полупроизведение.Нужно написать блок схему и программу на языке паскаль,заранее спасибо
С клавиатуры вводится два числа. Если они оба одного знака,тонайдите их полусумму,иначе-вычислите их полупроизведение.
Нужно написать блок схему и программу на языке паскаль,заранее спасибо
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c:real;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
if ((a<0) and(b<0))or((a>0) and (b>0)) then c:=(a+b)/2
else c:=(a*b)/2;
writeln(c);
end.
Не нашли ответ?
Похожие вопросы