В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Dana1913
Dana1913
20.08.2021 10:08 •  Информатика

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

Показать ответ
Ответ:
Dusa777
Dusa777
08.10.2020 21:12
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.
0,0(0 оценок)
Ответ:
SashaZorikhina
SashaZorikhina
08.10.2020 21:12
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота