Var fullstr,s,s_int,s_rl,s_str: string; int: integer; rl: real; space,err: integer; begin writeln('String:'); readln(fullstr);
while fullstr[1] = ' ' do delete(fullstr,1,1); while fullstr[length(fullstr)] = ' ' do delete(fullstr,length(fullstr),1); while pos(' ',fullstr) <> 0 do delete(fullstr,pos(' ',fullstr),1);
s_int := ''; s_rl := ''; s_str := ''; while fullstr <> '' do begin space := pos(' ',fullstr); if space = 0 then space := length(fullstr) + 1; s := copy(fullstr,1,space-1); val(s,int,err); if err = 0 then s_int := s_int + s + ' ' else begin val(s,rl,err); if err = 0 then s_rl := s_rl + s + ' ' else s_str := s_str + s + ' '; end; delete(fullstr,1,space); end;
Var b, c: integer; begin Writeln('Введите ваш возраст');
Readln(b);
if b <= 0 then WriteLn('Вам 0 лет')
else begin
c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
else
case (b mod 10) of
1: WriteLn('Вам ', b, ' год');
2..4: WriteLn('Вам ', b, ' года');
5..9, 0: WriteLn('Вам ', b, ' лет')
end; end;
Writeln('Для выхода нажмите <Enter>'); Readln;
end<span>.</span>
Const N = 5; var i: integer; a: array[1..N * 2 + 1] of integer; begin writeln('Исходный массив: '); for i := 1 to 2 * N do begin a[i] := Random(99) + 1; write(a[i] : 5); end; for i := 2 * N + 1 downto N + 1 do a[i] := a[i - 1]; a[N + 1] := 0; writeln(); writeln('Полученный массив: '); for i := 1 to 2 * N + 1 do write(a[i] : 5); end.