Это информатика! Тема: решение задач с условием. Даны 3 числа. Уменьшить

Это информатика! Тема: решение задач с условием.

Даны 3 числа. Уменьшить на 2 те из их, которые четные. Другие оставить без конфигурации.



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

var a,b,c:integer;

begin

readln(a,b,c);

if a mod 2=0 then a:=a-2 else writeln(a);

if b mod 2=0 then b:=b-2 else writeln(b);

if c mod 2=0 then c:=c-2 else writeln(c);

end.

к примеру даны числа 2 3 4

четные уменьшим на два а нечетное оставим, получится:

0 3 2

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт