Ограничение времени 1 секунда ограничение памяти 64mb ввод стандартный ввод или input.txt вывод стандартный - id902191320230526 от vika36voronezhskaya 26.05.2023 09:56

Question

Информатика: Ограничение времени 1 секунда ограничение памяти 64mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt по четным дням месяца вася чистит зубы, а по нечетным — не чистит. чтобы не запутаться, он просит вас написать программу, которая по номеру дня говорит, нужно ему сегодня чистить зубы или нет. формат ввода ввод содержит одно число n (1≤ n≤ 31). формат вывода выведите yes, если сегодня надо чистить зубы или no, если не надо. пример 1 ввод вывод 4 yes пример 2 ввод вывод

vika36voronezhskaya · 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.

MOGZ ответил