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

случае вычислить сумму. Вывести полученное число.

Ответ или решение

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.

На нашем сайте представлено множество школьных и студенческих вопросов и ответов на них. Также, вы можете задать свой вопрос или помочь другим учащимся, ответив на существующие вопросы. Для этого пишите ответы в комментариях.

Для того, чтобы найти ответ на ваш вопрос, а он наверняка есть в нашей базе, пользуйтесь формой поиска по сайту!

Оценки
Подсказкино
Добавить комментарий