program helloworld;
var x,i : integer;
begin
x : = 0; // количество желаний
i : = 0; // года совместной жизни
while(x < 33) do
begin
i : = i+1;
if i mod 3 = 0 then
begin
x: = x + 2*3
end
else
begin
x: = x + 3
end;
write('год: ');
write(i);
write(' кол-во желаний: ');
write(x);
writeln('');
end;
end.
ответ: 9 лет
Поделитесь своими знаниями, ответьте на вопрос: