?>
Горішки Білочка зібрала в лісі N шишок з горішками. Білочка дуже вибагливо вибирала шишки, ібрала тільки ті, в яких рівно м горішків. Також відомо, що для прожиття взимкуIнеобхідно не менш як К горішків. Визначте, чи вистачить на зиму горішків білочці.Вхідні даніВвести три натуральних числа в один рядок через пропуск: N, MiK (N, M< 100, К< 10000Вихідні даніВивести «YES» якщо білочці вистачить горішків і «NO» в іншому випадку.Приклади№ Вхідні даніВихідні дані1145 20YES24 5 21INO33 21YES
Ответы
i,j,s:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
readln(a[i,j]);
for i:=1 to 4 do begin
writeln();
for j:=1 to 4 do begin
write(a[i,j],' ');
if (i+j>5) then s:=s+a[i,j];
end;
end;
writeln();
write(s);
end.
2)var a:array[1..4,1..4] of integer;
i,j,s:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
readln(a[i,j]);
for i:=1 to 4 do begin
writeln();
for j:=1 to 4 do begin
write(a[i,j],' ');
if (i>J) then s:=s+a[i,j];
end;
end;
writeln();
write(s);
end.