ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
ч, y: ЦЕЛ;
УКАЗ
ч := Приём.Число();
y := (ч ДЕЛИТЬ 100 ОСТАТОК 10) * 1000 +
(ч ДЕЛИТЬ 1000) * 100 +
(ч ОСТАТОК 10) * 10 +
(ч ДЕЛИТЬ 10 ОСТАТОК 10);
Вывод.ЧЦел("^%d", y, 0, 0, 0)
КОН Задание.
1. C
2. B
3. 11
4. B
5. D
6. D
7. B
8. A
const n = 10;
var
a, b: array[1..n] of integer;
i: integer;
begin
write('Массив a: ');
for i := 1 to n do begin
a[i] := random(5);
write(a[i], ' ');
end;
writeln;
write('Массив b: ');
for i := 1 to n do begin
b[i] := random(5);
write(b[i], ' ');
end;
writeln;
for i := 1 to n do if(a[i] = b[i]) then writeln('a[', i, '] = b[', i, ']');
end.