2) элемент вставляется в массив остальные элементы сдвигаются вправо
var a: array [1..20] of integer; i, n, k: integer;
begin readln(n); for i : = 1 to n do begin a[i] : = random(50); write(a[i]: 3); end; writeln; readln(k); for i: =n+1 downto k do a[i]: =a[i-1]; a[k] : = 2; for i : = 1 to n+1 do write(a[i]: 3); end.
Ответ дал: Гость
1)
var
s,r: string;
i: integer;
begin
readln(s);
r: ='';
for i: =1 to length(s) do
if s[i]< > 'a' then r: =r+s[i];
writeln(r);
end.
2)
текст разделяем знаками препринания
var t: array [1..100] of string; p, s, r: string; f, i, j, k: integer;
begin p : = ' ; : -'; readln(s); k : = 0; r : = ''; for i : = 1 to length(s) do begin f : = 0; for j : = 1 to length(p) do if s[i] = p[j] then f : = 1; if f = 0 then r : = r + s[i] else begin k : = k + 1; t[k] : = r; r : = ''; end; if i=length(s) then begin k : = k + 1; t[k] : = r; end; end; for i : = k downto 1 do write(t[i], ' '); end.
Ответ дал: Гость
ваня и с.- отличники, значит ваня не с.петя и в.- троечники, значит петя не в. в. ростом выше п., а коля ростом ниже п. - значит коля не в. и коля не п. так как петя – троечник, то петя не с. так как ваня – отличник, то ваня не в. саша не п., не с., не к.тогда коля это с. коля это не к.т.к. саша это в. и саша одного роста с петей, то петя не может быть п., т.к. в выше п., петя это к.отсюда ваня это п.
Популярные вопросы