If (a+b) < c then
if (b+c) < a then
if (a+c) < b then writeln("Exists");
Клетка будет черной, если номер столбца и номер строки будут одновременно четными или нечетными. Белыми, если один из них четный, а второй нечетный.
var a,b,c,d,t,k:integer;
begin
k:=0;
t:=0;
read(a);
read(b);
read(c);
read(d);
if (a mod 2=0) and (b mod 2=0) or (a mod 2=1) and (b mod 2=1) then
t:=1;
if (c mod 2=0) and (d mod 2=0) or (c mod 2=1) and (d mod 2=1) then
k:=1;
if t<>k then
writeln('NO')
else
writeln('YES');
end.
Ответ:
Файл и скрин во вложениях
Объяснение:
Для заданного условия изначально есть 1 рыба. через 10 лет из может быть около 2000 при условии что k близка к 2.
Но, обратите внимание на 2 график, с прогнозом на 18 лет, после 8 лет количество рыбы в пруду, уже не будет расти, а будет колебаться в одном интервале (год спада-год прироста)
1 Гбайт = 1024 Мбайт
1 Мбайт = 1024 Кбайт
1 Кбайт = 1024 Байт
1 Байт = 8 Бит
5 КБайт = 5 * 1024 Байт = 5120 Байт = 5120 * 8 Бит = 40960 Бит
1536 Байт = 1536 * 8 Бит = 12288 Бит = (1536 / 1024) КБайт = 1,5 КБайт
213 Бит = (213 / 8) Байт = 26.625 Байт = (26.625 / 1024) КБайт ≈ 0.03 КБайт
1536 МБайт = 1536 * 1024 КБайт = 1572864 КБайт = (1536 / 1024) ГБайт = 1,5 ГБайт
29 КБайт = 29 * 1024 Байт = 29696 Байт = 29696 * 8 Бит = 237568 Бит = (29 / 1024) МБайт ≈ 0.03 МБайт
Var a,b,c: integer;
begin
c:=0;
b:=-30000;
read(a);
while a <> 0 do
begin
read(a);
if (a>b) then b:=a;
if a mod 2 = 0 then c:=c+1;
end;
writeln('Макс число: ', b);
writeln('Четных ', c);
<span>end.</span>