Задать вопрос
18 мая, 22:07

Составить программу, определяющую результат гадания на ромашке - "любит - не любит", взяв за исходное данное кол-во лепестков n.

Pascal

+1
Ответы (1)
  1. 19 мая, 00:52
    0
    Var

    n:integer;

    Begin

    Write ('n = ') ; ReadLn (n) ;

    if n mod 2 = 0 then WriteLn ('Не любит')

    else WriteLn ('Любит')

    End.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Составить программу, определяющую результат гадания на ромашке - "любит - не любит", взяв за исходное данное кол-во лепестков n. Pascal ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы