1.дано целое k больше 2. напечатать все простые числа из диапазона [2,k]2.найти первое число Фибоначчи, большее заданного n (n больше 1).
1.дано целое k>2. напечатать все простые числа из диапазона [2,k]
2.найти первое число Фибоначчи, большее заданного n (n>1).
Гость
Ответ(ы) на вопрос:
Гостьvar a, b, k, j: integer;
begin
readln(j);
a := 1;
b := 1;
while (j > a) do
begin
k := b;
b := b + a;
a := k;
end;
writeln(a);
end.
Классно, что можно заставить бездушную машину работать на себя:))
Не нашли ответ?
Похожие вопросы