Задать вопрос
19 марта, 16:14

Дано число, удвоить его в 3 раза если оно кратно 17. В противном случае уменьшить на 4. Вывести ответ на экран. В pascal abc

+1
Ответы (1)
  1. 19 марта, 17:24
    0
    Var a:real;

    begin

    read (a) ;

    if a mod 17 = 0 then begin

    write (a*2*3) ;

    end;

    else begin

    write (a-4) ;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дано число, удвоить его в 3 раза если оно кратно 17. В противном случае уменьшить на 4. Вывести ответ на экран. В pascal abc ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы