<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := Abs(ReadInteger('Введите целое число:'));
var yes := False;
var n1 := n mod 10;
n := n div 10;
while n > 0 do
begin
var n2 := n mod 10;
if n1 = n2 then
begin
yes := True;
break
end;
n := n div 10;
n1 := n2
end;
if yes then Print('Верно')
else Print('Неверно')
end.
<h3>А еще это можно решить, к примеру, так:</h3>
begin
var s := Abs(ReadInteger('Введите целое число:')).ToString;
if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')
else Print('Неверно')
end.
Program fantscrin;
const n = 100;
Var a: array [1..n] of integer;
i,j,k,s:integer;
Begin
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] = 0) then break;
k:=k+1;
end;
for i:=1 to k do
write(a[i], ' ');
for i:=1 to k do
if ((a[i] mod 10 = 3)and(a[i] mod 7 = 0)) then s:=s+a[i];
writeln('');
writeln(s);
End.
Я так понимаю что дела какется рисования и графических редакторов
1) Трассировка - обводка линией
2) обтравка - тоже типа обводки, но возможно другим способом
3) растрирование - перевод некого векторного обьекта в пиксельное представление
4)маскировка - спрятать кусок слоя, сделать часть рисунка прозрачным, полупрозрачным
5) инвертирование - относится к цвету, каждый пиксель меняет цвет на противоположный
Где инфа? Где двадцать символов?
Если здесь надо дать ответ, только из предложенных вариантов, то верным будет ответ - 4) С:\учёба\математика\2013\Расписание