2048 символів так как в 1байте 8 бит а в 1 килобайте 1024 байт
<span> Способность информации быть легко воспринимаемой зрительно?это-
</span>Наглядность
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
writeln('Пары соседних элементов с суммой > 50:');
for i:=2 to n do
if a[i-1]+a[i]>50 then writeln(a[i-1]:3,' ',a[i]);
end.
Пример:
12 34 23 1 12 3 1 42 30 36
Пары соседних элементов с суммой > 50:
34 23
42 30
30 36
Read(a);
read(b);
if (a mod 10) = (b mod 10) then writeln('Верно') eslse
writeln('Неверно');