Задать вопрос
2 февраля, 10:23

Написать программу, которая грамотно печатает фразу "У меня К друзей". К вводится с клавиатуры. Например, для К=1 должно напечататься " У меня 1 друг", для К=24 - "У меня 24 друга", для К=100 - "У меня 100 друзей".

написать программу в paskal

+3
Ответы (1)
  1. 2 февраля, 10:32
    0
    Program zadacha;

    var a, b:string;

    n:longint;

    Begin

    Writeln ('Введите количество друзей') ;

    Readln (n) ;

    If n>4 then b:=' друзей'

    Else if n=1 then b:=' друг'

    Else b:=' друга';

    a:='У меня ';

    Writeln (a, n, b) ;

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