Uses crt;
var i:integer;
begin
for i:=100 to 999 do
if ((i mod 10)<>(i div 100)) and ((i mod 10)<>(i mod 100 div 10)) and
((i div 100)<>(i mod 100 div 10)) then writeln(i);
end.
Программа на Кумире прилагается.
Камбуз
Кубрик
Склянки
Швартовы
Лкорь
Я в этом не особо разбираюсь
Немного теории:
Указатель - некая переменная, значение которой является адресом другой переменной.
Адрес сам по себе является целым числом. Память под него выделяется как под целое. Но для нормальной работы с указателем необходимо знать тип переменной, адрес которой хранит указатель.
Унарная операция * позволяет извлечь содержимое ячейки, на которую "указывает" указатель.
Унарная операция & - получение адреса переменной.
В данном задании:
int a=8 - переменной a целого типа присвоили значение 8
int *b - объявили указатель b на переменную целого типа.
&a - извлекли адрес переменной a.
int *b=&a - буквально переводиться как "поместим адрес целой переменной a в переменную b типа указатель на целое".
*b=1+*b - получаем доступ к переменной, адрес которой храниться в b. Это равносильно такому выражению: a=1+a.
В итоге a=9
Ответ: a=9
1/ Носитель Емкость
Жесткий диск до нескольких терабайт
CD 700Мб
DVD 4,7Гб
Flash до десятков гигабайт
Blue-ray 25 ГБ (однослойный)
50 ГБ (двухслойный)
100/128 ГБ (BDXL)
2/ Сходства-одинаковые размеры (диаметр 120 мм, толщина 1.6 мм), тот же радужный вид. Принцип записи и чтения тоже аналогичный.
Различия - дело в том, что в CD используется инфракрасный лазер (длина волны в воздухе 780 нм). В DVD же применяется красный лазер (650/635 нм). Меньшая длина волны позволяет плотнее размещать информацию на DVD-диске.
Ёмкость DVD сильно превосходит обычный компакт-диск (640 Мб) и составляет 4.38 гигабайта (в смысле 2^30 байт) или 4.7 миллиарда байт.