Составить программу на ! пользователь вводит два числа. если они не равны 10 и первое число четное, то вывести их сумму, иначе вывести их произведение.

168

308

Посмотреть ответы 1

Ответы на вопрос:

Бозя1

Информатика

4,4(68 оценок)

Первая: program qwer; uses crt; var pr: double; i, a: integer; begin write('введите число а: '); readln(a); pr : = 1; for i : = a to 20 do pr : = pr * i; writeln(pr); end. вторая: program qwer; uses crt; var i: integer; begin for i : = 20 to 50 do if (i mod 3 = 0) and (i mod 5 < > 0) then writeln(i); end.