Program z1;
var i,m:integer;
begin
m:=0;
for i:=39 to 5000 do
if (i mod 39=0)and(m<i) then
m:=i;
writeln(m);
end.
var G,S,L:integer;
BEGIN
write('Количество горилл = ');
readln(G);
write('Количество шимпанзе = ');
readln(S);
write('Количество лемуров = ');
readln(L);
writeln(G*3+S*2+L);
end.
Это когда все события стоят в том порядке, когда они были! ну например. . вчера, сегодня завтра.<span>Хронос - это по-гречески "время". То есть события располагаются так, как они действительно происходили. </span>