Угусей и кроликов вместе n лап. сколько может быть гусей и кроликов? (вывести все возможные сочетания) напоминаем, что у гуся две лапы, а у кролика — четыре. паскаль
Var n,g,k:integer; begin write('n = '); readln(n); writeln('Гуси Кролики'); for g:=0 to n div 2 do if (n-2*g) mod 4 = 0 then writeln(g:3,((n-2*g) div 4):4); end.
Var d:integer; const a=650; b=1; c=1000; begin write('Введите объём видеофайла в мегабайтах: '); readln(d); if d>a then write('Видеофайл не помещается на носитель информации"А"!',#10) else writeln('Памяти хватает для записи на носитель "А"! ',#10); if d>b then write('Видеофайл не помещается на носитель информации"B"!',#10) else writeln('Памяти хватает для записи на носитель "B"! ',#10); if d>c then write('Видеофайл не помещается на данный носитель информации"С"!',#10) else writeln('Памяти хватает для записи на носитель "C"! ',#10); readln; end.
Var a1,a2,b1,b2,c1,c2:integer; begin writeln('Координаты превой клетки'); writeln('введите номер столбца'); readln(a1); writeln('введите номер строки'); readln(a2); writeln('Координаты второй клетки'); writeln('введите номер столбца'); readln(b1); writeln('введите номер строки'); readln(b2); if ((a1 mod 2) <> 0) then if ((a2 mod 2) <> 0) then c1:=0 else c1:=1; if ((a1 mod 2) = 0) then if ((a2 mod 2) <> 0) then c1:=1 else c1:=0; if ((b1 mod 2) <> 0) then if ((b2 mod 2) <> 0) then c2:=0 else c2:=1; if ((b1 mod 2) = 0) then if ((b2 mod 2) <> 0) then c2:=1 else c2:=0; if c1=c2 then writeln('YES') else writeln('NO') end.
begin
write('n = '); readln(n);
writeln('Гуси Кролики');
for g:=0 to n div 2 do
if (n-2*g) mod 4 = 0 then writeln(g:3,((n-2*g) div 4):4);
end.
Пример:
n = 20
Гуси Кролики
0 5
2 4
4 3
6 2
8 1
10 0