Задать вопрос
3 марта, 12:14

Составить алгеритм удвоения нечетного числа и увеличения в три раза четного

+3
Ответы (1)
  1. 3 марта, 13:24
    0
    Var n:integer;

    begin

    write ('n = ') ;

    readln (n) ;

    if n mod 2 = 0

    then n:=3*n else n:=2*n;

    writeln ('n = ', n) ;

    end.

    Пример:

    n = 7

    n = 14
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составить алгеритм удвоения нечетного числа и увеличения в три раза четного ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы