n = int(input())
print ('The next number for the number', n,'is',n+1)
print ('The previous number for the number', n,'is',n-1)
Вот, на фото
тут надо минимум 20 символов, поэтому я тут фигню пишу
Var
str : string;
i, num : integer;
begin
readln(str);
num := 0;
for i := 1 to length(str) do
if str[i] in ['0'..'9'] then
num := num + 1;
writeln(num);
end.
Растровое изображение имеет размер файла болльше чем векторное изображение.Так как в растровом храняться данные о каждом пикселе и его цете.А в векторном изображении используются графические приметивы такие как элипс, треугольник, линия.И требуют гораздого меньшего размера.
var i,j:integer;
a:array[1..6,1..10]of integer;
begin
for i:=1 to 6 do
for j:=1 to 10 do
a[i,j]:=(i-1)*10+j ;
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:4);
writeln
end;
end.