Если в три переменные:
var a,b,c:integer;
begin
writeln ('Введите 3 числа');
read (a,b,c);
if (a=b)or (a=c) or (b=c) then
begin
if (a>1) and (b>1) and (c>1)and (a=b) and (a=c) and (b=c) then //Одно ненужное условие для наглядности
writeln ('Все числа одинаковые');
if ((a>1) and (b>1) and (a=b)) or ((a>1) and (c>1) and (a=c)) or ((b>1) and (c>1) and (b=c)) then writeln (2);
end
else writeln ('Нет одинаковых чисел');
end.

0 0

4 года назад

Помогите пожалуйста. как записать это в виде формулы？Для того чтобы число делилось на 3, достаточно, чтобы оно делилось на 9

kirk100 [10]

N ⵗ 9 ⵗ 3
Где N - число
N ⵗ 9 - число кратно (делится нацело, без остатка) на 9.
N ⵗ 9 ⵗ 3 - число кратно 9 и 3, то есть чтобы оно делилось на 3, достаточно чтобы оно делилось на 9.

0 0

4 года назад

Сколько байт будет занимать код рисунка размером 40 50 пикселей в режиме истинного цвета, при кодировании с палитрой 256 цветов?

abaimiv newstyle

40 * 50 * 256 = 512000 /8 = 64000 байт
40 * 50 * 16 = 32000 /8 = 4000 байт
40 * 50 * 2 = 32000 /8 = 500 байт

0 0

4 года назад