profile
Размещено 6 лет назад по предмету Информатика от sveta27061998

помоги пожалуйста с задачей в паскале:
Вводится целое число К. вывести фразу «Я посадил К цветов», согласовав слово "цветы" с числом К. Предусмотреть ситуацию ввода К<0.

  1. Ответ на вопрос
    Ответ на вопрос дан minecraft066
    var
    k, i, j:integer;
    begin

    readln(k);
    j:=1;

    if k<=0 then
    writeln('Я не посадил цветы');

    if ((k mod 10 = 1) and (k<>11)) then
    writeln('Я посадил k цветок');

    for i:=12 to 14 do begin
    j:=j+1;
    if ((k mod 10 = j) and (k<>i)) then
    writeln('Я посадил k цветка');
    end;

    if k mod 10 >4 then
    writeln('Я посадил k цветов');

    end.
    1. Ответ на вопрос
      Ответ на вопрос дан DonPedro80
      Все класс, только программа не работает, как надо.
    2. Ответ на вопрос
      Ответ на вопрос дан DonPedro80
      Ввел 11 - ничего не получил.
    3. Ответ на вопрос
      Ответ на вопрос дан DonPedro80
      Ввел 9 - получил на выводе "Я посадил k цветов"
    4. Ответ на вопрос
      Ответ на вопрос дан DonPedro80
      Ввел 13 - тоже не получил ничего.
  2. Ответ на вопрос
    Ответ на вопрос дан DonPedro80
    var
      k:integer;
    begin
      Write('Задайте число цветов: ');
      Readln(k);
      if k=0 then Writeln('Я не посадил ни одного цветка')
      else
      begin
        if k>0 then Write('Я посадил ',k,' цвет')
        else
        begin
          k:=-k;
          Write('Я выполол ',k,' цвет')
        end;
        case k mod 100 of
        11..19:Write('ов');
        else
          case k mod 10 of
          1:Write('ок');
          2..4:Write('ка');
          else Write('ов');
          end
        end
      end
    end.
    1. Ответ на вопрос
      Ответ на вопрос дан sveta27061998
      просто идеально,спасибо)
    2. Ответ на вопрос
      Ответ на вопрос дан DonPedro80
      Пожалуйста) Я же написал в другом ответе чтобы обращались если надо)
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.