Последовательность любая или есть какое то число? ну ладно сделаю так var a,i:longint; begin read(a); for i:= 1 to a do begin if i mod 7= 0 do write(i,' '); end; end.
Uses Crt; const nn=10; var a:array[1..nn,1..nn] of integer; d:array[1..nn] of boolean; i,j,k,n,n1,i1:integer; begin ClrScr; Randomize; Write('Укажите число строк в массиве (2-10): '); Read(n); Writeln('Исходный массив'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4) end; Writeln end; Write('Введите число, строки с которым надо удалить: '); Read(k); for i:=1 to n do begin d[i]:=False; j:=1; while (j<=n) and not d[i] do begin d[i]:=(a[i,j]=k); Inc(j) end end; n1:=n; while (d[n1]) and (n1>0) do Dec(n1); if n1=0 then Writeln('Удалены все строки') else begin for i:=n1 downto 1 do begin if d[i] then begin for i1:=i to n1-1 do for j:=1 to n do a[i1,j]:=a[i1+1,j]; Dec(n1) end end; Writeln('Результирующий массив'); for i:=1 to n1 do begin for j:=1 to n do Write(a[i,j]:4); Writeln end end; ReadKey end.
Const Cyr=['А'..'я','Ё','ё']; Lat=['A'..'z']; Dig=['0'..'9']; var s,sC,sL,sD,sO:string; i:integer; begin Writeln('Введите произвольную строку символов'); Readln(s); sC:=''; sL:=''; sD:=''; sO:=''; for i:=1 to Length(s) do if s[i] in Cyr then sC:=sC+s[i] else if s[i] in Lat then sL:=sL+s[i] else if s[i] in Dig then sD:=sD+s[i] else sO:=sO+s[i]; Writeln('Кириллица: ',sC); Writeln('Латиница : ',sL); Writeln('Цифры : ',sD); Writeln('Прочее : ',sO) end.
var a,i:longint;
begin
read(a);
for i:= 1 to a do begin
if i mod 7= 0 do
write(i,' ');
end;
end.