От этого зависит годовая оценка по информатике) это в паскале с строк дано предложение. определить, есть ли в нем буква «а». в случае положительного ответа найти порядковый номер первой из них.

137

476

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

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

Neу4

Информатика

4,4(87 оценок)

var s: string; begin write('введите предложение'); readln(s);

if pos('a', s)> 0 writeln(pos('a',s)) else writeln('буквы "а" в предложении нет'); end.

martynov20031

Информатика

4,6(61 оценок)

Uses crt; var x: array[1..10,1..10] of integer; i,j,s,n: integer; begin randomize; write('размер матрицы: '); read(n); writeln('матрица: '); for i: =1 to n do begin for j: =1 to n do begin x[i,j]: =random(30)-10; write(x[i,j]: 5); end; writeln end; j: =n+1; for i: =1 to n do begin j: =j-1; s: =s+x[i,j]; end; writeln('сумма элементов побочной диагонали: ',s); end.