<em /><em />Если в три переменные:
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.
<span>Как работает струйный принтер Постараемся осветить принцип печати струйного принтера кратко. Качество печати у него немного хуже, чем у лазерного. Однако их стоимость значительно ниже, чем у лазерных. Струйный принтер идеально подходит для эксплуатации в домашних условиях. Он прост в эксплуатации и легко обслуживается. Принцип печати струйного и лазерного принтера заметно отличаются. Это проявляется и в технологии подачи чернил, и в устройстве оборудования. Поэтому поговорим сначала о том, как печатает струйный принтер. Его принцип работы заключается в следующем: в специальной матрице формируется изображение, а затем эта матрица отпечатывает изображение на полотне с использованием жидких красителей. Другой тип струйных принтеров оснащен картриджами, которые устанавливают в специальный блок. В этом случае с помощью печатающей головки чернила подаются в печатающую матрицу, а уж она переносит изображение на бумагу. Способы хранения чернил и их нанесение на бумагу Существует три способа нанести чернила на полотно: • пьезоэлектрический метод; • метод газовых пузырей; • метод drop-on-demand. Первый метод при печати оставляет на полотне чернильную точку, за счет пьезоэлемента. С его помощью трубка сжимается и разжимается, не позволяя лишним чернилам попасть на бумагу. Газовые пузыри, еще известные как инжектируемые пузыри, оставляют отпечаток на полотне за счет высоких температур. Каждое сопло печатающей матрицы оснащено нагревательным элементом, который нагревается за долю секунды. Образовавшиеся газовые пузыри проталкиваются через сопло и переносятся на расходный материал. - Читайте подробнее на FB.ru: </span><span>http://fb.ru/article/174499/kakoy-printsip-pechati-struynogo-i-lazernogo-printera-kak-pechataet-stru...</span>
Ответ: уменьшится в 2 раза
Объяснение:
В 1 байте- 8 битов
В 2 байтов - 16 битов
Т.е. 16/8=2
Ответ: уменьшится в 2 раза
Var h1,m1,s1,h2,m2,s2,t:integer;
begin
write('Start: ');
readln(h1,m1,s1);
write('Finish: ');
readln(h2,m2,s2);
t:=(h2*3600+m2*60+s2)-(h1*3600+m1*60+s1);
writeln(t);
end.
Пример:
<span>Start: 11 20 30
Finish: 13 15 40
6910</span>
Системный блок->1)монитор;2)клавиатура; 3)мышь;4)колонки;5)наушники;