Задать вопрос
12 июля, 06:04

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

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

+3
Ответы (2)
  1. 12 июля, 06:55
    0
    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. 12 июля, 09:52
    0
    к примеру даны числа 2 3 4

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

    0 3 2
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Это информатика! Тема: решение задач с условием. Даны 3 числа. Уменьшить на 2 те из них, которые четные. Остальные оставить без изменения. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы