Var a,b,c:integer;
begin
writeln('введите число');
readln(a);
for b:=10 to 99 do
begin
if (b mod a = 0) or (b div 10 = a) or (b mod 10 = a) then writeln(b);
end;
<span>end.</span>
Program zz;
var i,n,m:integer;
begin
readln(n,m);
for i:=1 to n do
write('?') ;
for i:=1 to m do
write('!') ;
end.<span>
</span>
<span>Компьютерные словари.<span> Словари необходимы для перевода текстов с одного языка на другой. Первые словари были созданы около 5 тысяч лет назад в Шумере и представляли собой глиняные таблички, разделенные на две части. В одной части записывалось слово на шумерском языке, <span>а в другой — аналогичное по значению слово на другом языке, иногда с краткими пояснениями.</span></span></span>
В чёрно-белой картинке цвет одной точки кодируется одним битом, значит количество точек = 6000/1 = 6000