Pascal Составить программу, которая считывает целое число. Если оно четное и положительное, увеличить его в два раза, в противном случае увеличить в 10 раз

Вам нужно узнать решение и ответ на вопрос Pascal Составить программу, которая считывает целое число. Если оно четное и положительное, увеличить его в два раза, в противном случае увеличить в 10 раз и правильно выполнить домашнюю работу по предмету Информатика? Готовое решение смотрите далее.

Pascal
Составить программу, которая считывает целое число. Если оно четное и положительное, увеличить его в два раза, в противном случае увеличить в 10 раз

Program p1;
var x: integer;
begin
writeln('введите число');
readln(x);
if (x mod 2 = 0) and (x > 0) then
x:=x*2
else
x:=x*10;
writeln(x);
end.


Подобные ответы

оформите 4 этапа создания базы данных для объекта "приемная комиссия" Запишите развернутый ответ
оформите 4 этапа создания базы данных для объекта приемная комиссия Запишите развернутый
Помогите плз, не понимаю !
Помогите плз, не понимаю !
прямоугольник задан длингами своих сторон. Определить площадь треугольника пересечением диагонали
прямоугольник задан длингами своих сторон. Определить площадь треугольника пересечением
Помогите пожалуйста! Информатика 8класс.
Помогите пожалуйста! Информатика 8класс.