Опубликовано 6 лет назад по предмету Информатика от sveta27061998

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

Ответ

Ответ дан 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 - тоже не получил ничего.
Ответ

Ответ дан 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
  
  Пожалуйста) Я же написал в другом ответе чтобы обращались если надо)

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.

Информация