// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
procedure F(n: integer);
begin
if n < 6 then
begin
write(n);
F(n * 2);
F(n + 2)
end;
if n < 5 then
begin
write(n + 1);
F(n + 2)
end
end;
begin
var n := ReadInteger;
F(n)
end.
3 * 1024 = 3072 байт / 1536 = 2
40 мс * 2 = 80 мс
Var f,n:integer;
begin
write('Сколько дней: ');
readln(f);
n:=f div 7;
writeln('Полных недель: ',n);
<span>end.</span>
Ответ:
Решение в приложенном скриншоте
Объяснение:
Решение :
15 - (( 9 - 3 ) + 5 - 3) = 7 (чел)