Информатика, опубликовано 2018-08-22 21:50:43 by Гость
Ввести 2 числа если их сумма больше 100 то уменьшите сумму этих чисел в 2 раза и выведите результат на экран. В противном случае увеличте сумму чисел на 20 и выведите результат на экран
Ответ оставил Гость
Var
a,b:integer;
begin
write(Напишите 1 число);
readln(a);
write(Напишите 2 число);
readln(b);
if (a+b)>100 then
writeln((a+b)/2)
else
writeln(a+b+20);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на