Var x,i,s: integer; Begin s:=0; for i:= 1 to 15 do begin; Write('Введите оценку ученика №',i,' '); readln(x); if (x=2) then s:=s+1; end; if (s=0) then writeln('Двоек нет!') else writeln('Двойки есть! Всего двоек: ',s); readln(x); end.
Данный вопрос связан с понятием взаимного однозначного соответствия объектов классов. Для начала, давайте определимся с тем, что такое класс и объект.
Класс - это общая концепция или категория, в которую входят схожие по своим характеристикам объекты. Он определяет общие свойства и методы, которыми обладают эти объекты.
Объект - это конкретное представление экземпляра класса. Он имеет уникальные значения свойств и может быть создан на основе определенного класса.
Теперь, посмотрим на данные классы:
Первый класс содержит следующие объекты: Продуктовый магазин; Одежда; Обувь.
Второй класс содержит следующие объекты: Сыр; Пиджак; Сапоги.
Для определения взаимного однозначного соответствия объектов классов мы должны проверить, обладают ли все объекты в первом классе одним и только одним объектом второго класса, и наоборот.
Начнем с первого класса:
- Продуктовый магазин относится к продаже продуктов питания, одежда и обувь являются товарами, которые можно приобрести в продуктовом магазине, но они не являются продуктами питания. Значит, между первым классом и вторым классом нет взаимно однозначного соответствия.
Теперь проверим второй класс:
- Сыр относится к продуктам питания, пиджак и сапоги являются предметами одежды, но они не являются продуктами питания. Значит, между вторым классом и первым классом нет взаимно однозначного соответствия.
Таким образом, наши объекты классов не находятся в отношении взаимно однозначного соответствия.
Алгебраическое выражение нач цел s,k ввод s ввод k если mod (s,k) =0 то вывод "ДА" иначе вывод "НЕТ" все кон описывает программу, которая проверяет делится ли число s на число k без остатка и выводит "ДА", если условие выполняется, и "НЕТ", если условие не выполняется.
Теперь давайте решим задачу. Нам дано 9 пар чисел, и нам нужно узнать, сколько раз программа напечатает "ДА".
Переберем каждую пару чисел и будем запускать программу с этими значениями переменных s и k. Запишем все ответы программы и посчитаем, сколько раз она напечатала "ДА".
Пара чисел (1,2):
Программа проверяет, делится ли 1 на 2 без остатка. Очевидно, что нет, потому что 1 не делится на 2 без остатка. Программа напечатает "НЕТ".
Пара чисел (8,4):
Программа проверяет, делится ли 8 на 4 без остатка. Да, 8 делится на 4 без остатка. Программа напечатает "ДА".
Пара чисел (6,-12):
Программа проверяет, делится ли 6 на -12 без остатка. Очевидно, что нет, потому что 6 не делится на -12 без остатка. Программа напечатает "НЕТ".
Пара чисел (-5,-5):
Программа проверяет, делится ли -5 на -5 без остатка. Да, -5 делится на -5 без остатка. Программа напечатает "ДА".
Пара чисел (3,11):
Программа проверяет, делится ли 3 на 11 без остатка. Очевидно, что нет, потому что 3 не делится на 11 без остатка. Программа напечатает "НЕТ".
Пара чисел (-10,5):
Программа проверяет, делится ли -10 на 5 без остатка. Да, -10 делится на 5 без остатка. Программа напечатает "ДА".
Пара чисел (-10,-2):
Программа проверяет, делится ли -10 на -2 без остатка. Да, -10 делится на -2 без остатка. Программа напечатает "ДА".
Пара чисел (4,1):
Программа проверяет, делится ли 4 на 1 без остатка. Да, 4 делится на 1 без остатка. Программа напечатает "ДА".
Пара чисел (2,5):
Программа проверяет, делится ли 2 на 5 без остатка. Очевидно, что нет, потому что 2 не делится на 5 без остатка. Программа напечатает "НЕТ".
Begin
s:=0;
for i:= 1 to 15 do
begin;
Write('Введите оценку ученика №',i,' ');
readln(x);
if (x=2) then
s:=s+1;
end;
if (s=0) then writeln('Двоек нет!')
else writeln('Двойки есть! Всего двоек: ',s);
readln(x);
end.
//На скриншоте образец работы программы.