М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
aidos2008
aidos2008
28.05.2022 21:32 •  Информатика

Решить ,  используя оператор выбора (case): 1. ввести оценку (5, 4, 3, 2) и вывести соответствующее ей пояснение (отлично, хорошо, удовлетворительно, неудовлетворительно).    2. написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово «копейка» в правильной форме, например «5 копеек», «41 копейка» и т.д. заранее огромное ! ​

👇
Ответ:
МаксVFRCBV
МаксVFRCBV
28.05.2022

Первая программа

var x:integer;

begin

 readln(x);

 case x of

   2: writeln('Неудовлетворительно');

   3: writeln('Удовлетворительно');

   4: writeln('Хорошо');

   5: writeln('Отлично');

 end;

end.

Вторая программа

var x:integer;

begin

 readln(x);

 if not x in [1..99] then

   writeln('[ERROR]');

 case x of

 10..20,30,40:write(x,' копеек');

 else

  case x mod 10 of

  1:write(x,' копейка');

  2..4:write(x,' копейки');

  else write(x,' копеек');

  end;

 end;

end.

4,4(50 оценок)
Ответ:

// 2.

function RuEnding(a: integer): string;

begin

 Result := 'ек';

 if not ((a mod 100) in [11..14]) then

   case a mod 10 of

     1: Result := 'йка';

     2..4: Result := 'йки';

   end

end;

begin

 var a := ReadInteger();

   Writeln(a, ' копе' + RuEnding(a))

end.

4,5(1 оценок)
Открыть все ответы
Ответ:
suvorovka06
suvorovka06
28.05.2022

PascalABC.NET

begin

 var (s, n) := ReadInteger2('Введите S и N:');

 var r := 0;

 for var m10 := 0 to S div 10 do

 begin

   for var m5 := 0 to (S - 10 * m10) div 5 do

   begin

     if m10 + m5 > N then

       break;

     for var m2 := 0 to (S - 10 * m10 - 5 * m5) div 2 do

     begin

       if m10 + m5 + m2 > N then

         break;

       for var m1 := 0 to S - 10 * m10 - 5 * m5 - 2 * m2 do

       begin

         if m10 + m5 + m2 + m1 > N then

           break;  

         if (m10 * 10 + m5 * 5 + m2 *2 + m1 = s) and

           (m10 + m5 + m2+ m1 = N) then

         begin  

           $'{m10} x 10 + {m5} x 5 + {m2} x 2 + {m1} x 1'.Println;

           Inc(r)

         end

       end

     end

   end

 end;

 if r > 0 then

   Println('Найдено вариантов размена:', r)

 else

   Println('Вариантов такого размена нет')

end.

4,7(86 оценок)
Ответ:
hessous
hessous
28.05.2022

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<body>

<title>Практическая работа 2. Фамилия Имя Отчество</title>

<h1>Домашние животные</h1>

<h2><center>Собаки</center></h2>

<p>Сторожевые</p>

<p align="right">Охотничьи</p>

<p align="center">Дрессировка</p>

<center>

<p><font size=14 color="red">Клубы    Выставки     Площадки</font></p>

<p><font color="blue">Стихотворение</font></p>

</center>

<font size=10>

<p>По жизни я скромен</p>

<p>Оваций не надо!</p>

<p>Но как же я классно</p>

<p>Смотрюсь у снаряда</p>

</font>

</body>

</html>

4,4(53 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ