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

Question

Информатика

Федотья

2 марта, 06:35

Даны 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.