Волк коза и семеро козлят одновременно подршли к реке и хотят переправиться на стоящей общественной - id474562420220223 от egor20026 23.02.2022 09:53

Question

Информатика: Волк коза и семеро козлят одновременно подршли к реке и хотят переправиться на стоящей общественной лодке. достаточно оставить любого из зверей на берегу, чтобы избежать перегруза лодки. какое наименьшее кол-во рейсов нужно сделать, чтобы все попали на другой берег,и при этом волк не оставался рядом с козлятами без козы? варианты ответов: а)2 б)3 в)4

egor20026 · Accepted Answer

Первая прога:
program pr1;
uses crt
var m,n:real;
begin
clrscr;
writeln('insert the numbers');
readln(m, n);
if m <> n then begin
if m > n then begin
n:=m;
end
else begin
m:=n;
writeln(m,n);
end;
end
else begin
m:=0;
n:=0;
writeln(m,n);
end;
end.

Вторая прога:
program pr2;
ues crt
var y,m,d,k: integer;
begin
clrscr;
writeln('insert the year);
readln(y);
writeln('insert the month');
readln(m);
if m > 12 then begin
writeln('error');
end;
if m mod 2 <> 0 then begin
d:= 31;
end;
if m=2 then begin
d:= 28;
end;
if m mod 2 = 0 then begin
d:=30;
end;
writeln('the number of the days in your month:');
writeln(d);
end.

MOGZ ответил