1В результате выполнения программы program my_klass; var a:integer; begin a:=25+24*2; writeln ('улыбок'); end. мы увидим на экране: а) 73 улыбок; в) 'улыбок'; б) улыбок; г) улыбок73 2Чему будет равно значение переменной sum, после выполнения данной программы, если n = 389; n = 725; n = 345 Program pr1; var sum, n:integer; begin writeln('Введите трехзначное число'); readln(n); sum:=(n div 10)+(n div 15 mod 10)+(n div 6); writeln('Сумма цифр числа = ', sum); end. 3Какие из операторов присваивания не будет работать в программе с разделом описания переменных: Var n:integer; Выберите вариант ответа: 1) 25:=n; 2) n:=2.5; 3) n=25; 4) n:=25 4Найти значение выражения: 55 div 10 + 14 = 205 mod 100 + 1 = (32 mod 4 + 1) * 24 = 5Чему будет равно значение переменной sum, после выполнения данной программы, если X =479. Program SumCifr; Var X, Sum: integer; Begin Write(‘Введите трехзначное число: '); ReadLn(X); Sum:=5; Sum:=Sum + X mod 10; X:=X div 5; Sum:=Sum + X mod 10; X:=X div 4; Sum:=Sum + X; Write (' цифр = ', Sum) End.

1) улыбок(б)

2)

Для N 389: 107

Для N 725: 200

Для N 345: 97

3) Не будут работать 1 и 2

4)

55 div 10 + 14 = 19

205 mod 100 + 1 = 6

(32 mod 4 + 1) * 24 = 24

5) 42

Как работает струйный принтер Постараемся осветить принцип печати струйного принтера кратко. Качество печати у него немного хуже, чем у лазерного. Однако их стоимость значительно ниже, чем у лазерных. Струйный принтер идеально подходит для эксплуатации в домашних условиях. Он прост в эксплуатации и легко обслуживается. Принцип печати струйного и лазерного принтера заметно отличаются. Это проявляется и в технологии подачи чернил, и в устройстве оборудования. Поэтому поговорим сначала о том, как печатает струйный принтер. Его принцип работы заключается в следующем: в специальной матрице формируется изображение, а затем эта матрица отпечатывает изображение на полотне с использованием жидких красителей. Другой тип струйных принтеров оснащен картриджами, которые устанавливают в специальный блок. В этом случае с печатающей головки чернила подаются в печатающую матрицу, а уж она переносит изображение на бумагу хранения чернил и их нанесение на бумагу Существует три нанести чернила на полотно: • пьезоэлектрический метод; • метод газовых пузырей; • метод drop-on-demand. Первый метод при печати оставляет на полотне чернильную точку, за счет пьезоэлемента. С его трубка сжимается и разжимается, не позволяя лишним чернилам попасть на бумагу. Газовые пузыри, еще известные как инжектируемые пузыри, оставляют отпечаток на полотне за счет высоких температур. Каждое сопло печатающей матрицы оснащено нагревательным элементом, который нагревается за долю секунды. Образовавшиеся газовые пузыри проталкиваются через сопло и переносятся на расходный материал. - Читайте подробнее на FB.ru: http://fb.ru/article/174499/kakoy-printsip-pechati-struynogo-i-lazernogo-printera-kak-pechataet-stru...

//Блок-схема во вложении
//Pascal ABC.NET 3.1 сборка 1219

uses
 system;

Var
 d1,d2:datetime;
 a:integer;
begin
writeln('1 дата:');
write('День:');readln(a);d1:=d1.AddDays(a);
write('Месяц:');readln(a);d1:=d1.AddMonths(a);
write('Год:');readln(a);d1:=d1.AddYears(a);
writeln('2 дата:');
write('День:');readln(a);d2:=d2.AddDays(a);
write('Месяц:');readln(a);d2:=d2.AddMonths(a);
write('Год:');readln(a);d2:=d2.AddYears(a);
writeln('Res:',abs((d2-d1).Days));
end.

Пример ввода:
1 дата:
День:1
Месяц:1
Год:1998
2 дата:
День:2
Месяц:1
Год:1999
Пример вывода:
Res:366