Регистрация
Sashalizer
09.12.2020 09:15
Информатика
Есть ответ 👍

Что будет напечатано? write(pos('ра', 'абракадабра'));

172
330
Посмотреть ответы 2

Ответы на вопрос:

loza83olesya
loza83olesya
4,6(40 оценок)
Pos(subs : string, s : string) : integer функция pos ищет первое вхождение строки subs в строку s. возвращает число, которое является индексом первого символа subs внутри s. если вхождение не найдено, то возвращается 0. в данной будет напечатано 3.
правелостиля
правелостиля
4,5(84 оценок)

var  a: array [1..100,1..100]of integer;   n,i,j, summ: integer; beginwrite ('n = '); readln(n); for i: =1 to n do  begin  for j: =1 to n do  begin      a[i,j]: = random (99);       write ( a[i,j]: 4);   end;   writeln; end; summ : = 0;   for i : = 1 to (n div 2 + n mod 2) do      for j : = i to n - i + 1 do          summ : = summ + a[i,j];             writeln('summ = ', summ);   readln; end.

Популярно: Информатика