Очень прошу посодействовать решить задачу по информатике!!!!!Написать программу на Pascal: "Введите

Очень прошу посодействовать решить задачу по информатике!!!!!
Написать программку на Pascal: "Введите два числа. Если 1-ое число четное, вывести на экран творение данных 2-ух чисел, иначе цифру 9."

Задать свой вопрос
1 ответ
Var a,x,z: integer;
begin
write ('X='); read (x);
write ('Z='); read (z);
if x mod 2=0 then begin
a:=x*z;
write (a);
end
else
write (9);
end.
Виктория Тряпыхалина
Благодарю!
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт