Посчитайте, сколько записей удовлетворяют условию «Пол = ж ИЛИ Физика = 79»? - id1547940320221205 от DenneD432 05.12.2022 07:30

Question

Информатика: Посчитайте, сколько записей удовлетворяют условию «Пол = ж ИЛИ Физика = 79»?

DenneD432 · Accepted Answer

Я решала эту задачу ...с горем - по - полам .. простите :(..
в ней должны быть равны элементы стоящие в одной побочной диагонале. всего побочных диагоналей n+m-1.
достаточно хранить первую строку и последний столбец,

var n, m, i, j, b : integer;
a : array [1..30000] of integer;
t : boolean; begin assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n,m);
while n+m>0 do
begin
t:=true;
for j:=1 to m do
read(a[j]);
for i:=2 to n do begin
for j:=1 to m-1 do begin
read(b);
t:=t and (b=a[i+j-1]) end;
read(b);
a[m+i-1]:=b end;
if t then write('Y') else write('N');
readln(n,m) end;
close(output) ;
end.

Посчитайте, сколько записей удовлетворяют условию «Пол = 'ж' ИЛИ Физика = 79»?

MOGZ ответил