Составте программу ,которая предлагает ввести с клавиатуры две строки s и t и выводит на экран наиболее длинную строку

295

433

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

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

andreybrake

Информатика

4,5(94 оценок)

Var s1,s2: string ; d1,d2 : integer; begin writeln ('1 stroka'); read (s1); writeln ('2 stroka'); read (s2); d1: =length(s1); d2: =length(s2); if d1> d2 then writeln (s1) else writeln (s2); end.

nikolesmit

Информатика

4,8(90 оценок)

что-то типа этого:

const n = 8, m = 8; var a: array[1..n,1..m] of integer; i, j, sum, product: integer; isnotnull: boolean; begin randomize; writeln('случайная матрица: '); for i: =1 to n do begin for j: =1 to m do begin a[i,j] : = random(51) - 25; write(a[i,j]: 5); end; writeln; end; sum : = 0; for i: =1 to n do if a[i,n-i+1] < 0 then sum : = sum + a[i,n-i+1]; writeln('сумма отрицательных элементов побочной диагонали = ', sum); product : = 1; isnotnull : = false; for i: =1 to n-1 do for j: =2 to n do if (j > i) and (a[i,j] < > 0) then begin isnotnull : = true; product : = product * a[i,j]; end; if isnotnull writeln('произведение ненулевых элементов в области выше главной диагонали = ', product) else writeln('ненулевых элементов в области выше главной диагонали нет.', product); readln; end.