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

Question

Это информатика! Тема: решение задач с условием. Даны 3 числа. Уменьшить на 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.

Accepted Answer

к примеру даны числа 2 3 4 четные уменьшим на два а нечетное оставим, получится: 0 3 2