Только один вариант дает положительный результат. Когда первая цифра числа и третья равны 1
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a:integer;
begin
write('Введите число ');readln(a);
if ((a div 1000)=1)and ((a div 10 mod 10)*(a div 10 mod 10)= 1)then
writeln('квадрат первой цифры равен кубу третьей цифры этого числа')
else
writeln('квадрат первой цифры не равен кубу третьей цифры этого числа')
end.
Тест №1
Введите число 1214
квадрат первой цифры равен кубу третьей цифры этого числа
Тест №2
Введите число 2237
квадрат первой цифры не равен кубу третьей цифры этого числа
Множества А - это двузначные числа кратные 11, а множество В - числа кратные 3, значит пересечение множеств А и В - множество двузначных чисел кратных 11 и 3, то есть множество содержит числа 33,66,99.
Вообще цикл выполняется очень много раз.
Ответы
а)12
б)7
Вероятности вынуть красный и зеленый шары в первой урне равны ¹/₃ и ²/₃ соответственно, а во второй урне - ²/₅ и ³/₅. Среди этих вероятностей самая большая это ²/₃, т.е. <em>наиболее предсказуемо вытаскивание из первой урны зеленого шара. </em>
Единицами измерениями называют- байты,килобайты, мегабайты,гигабайты,терабайты