uses crt; var a: array [1..20, 1..20] of real; i, j, k, n, s: integer; begin clrscr; write('Введите размер матрицы: '); read(n); for i := 1 to n do for j := 1 to n do begin write('A[', i, ',', j, ']= '); readln(a[i, j]); end; WRITELN; WRITELN; writeln('Исходная матрица ', n, 'x', n, ': '); for i := 1 to n do begin for j := 1 to n do WRITE(a[i, j]:2:0, ' '); WRITELN; end; k := 0; for i := 1 to n do begin for j := 1 to n do begin if a[i, j] = 0 then begin k := k + 1; s := s + 1; end; end; if k = n then writeln(i, ' строка состоит из нулей! '); k := 0; end; if s = 0 then writeln('В матрице нет нулевых строк'); end.
// PascalABC.NET
// Версия 3.3.5 сборка 1662 (29.04.2018)
А
begin
Println('Кол-во символов -',ReadString('Слово->').Length)
end.
Пример:
741258963
Кол-во символов - 9
Б
begin
var s:=ReadString('Слово-> ').ToLower;
Println(s[1]=s[s.Length]?'Совпадают':'Не совпадают');
end.
Пример:
Слово-> Олово
Совпадают
В
begin
var s:=ReadString('Слово-> ');
Println(s[1],s[2],s[s.Length]);
end.
Пример:
Слово-> Плотина
П л а
Г
begin
Println(ReadString('Слово->').Length mod 2=0?'Четно':'Нечетно');
end.
Пример:
Слово-> Виноград
Четно