ПомогитеСоставьте программку в Паскаль,которая запрашивает три числа и инспектирует,является ли

ПомогитеСоставьте программку в Паскаль,которая запрашивает три числа и проверяет,является ли их произведение нечетным числом

Задать свой вопрос
1 ответ

program Z_20;

var a, i, proz: integer;

begin

proz:=1;

for i:=1 to 3 do

begin

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

readln(a);

proz:=proz*a;

end;

if proz mod 2=1 then

writeln ('Творение нечётное число');

if proz mod 2=0 then

writeln ('Творенье четное число');

end.

Илья Безнос
Спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт