Даны 2 целых числа. если они не равны, то вычислить произведение этих чисел; в противном случае вычислить сумму. Вывести полученное число.

Question

Информатика

Медост

4 февраля, 12:14

Даны 2 целых числа. если они не равны, то вычислить произведение этих чисел; в противном случае вычислить сумму. Вывести полученное число.

+5

Ответы (1)

Знаете ответ на вопрос?

Калеб · Answer 1

Var a, b, c : integer;

begin

writeln ('Введите первое целое число') ;

read (a) ;

writeln ('Введите второе целое число') ;

read (b) ;

if a=b then c: = a+b else c: = a*b;

writeln (c) ;

end.