Question

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

Answer 1

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.

Answer 2

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.