Информатика, опубликовано 2018-08-22 19:34:25 by Гость
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.
Классно, что можно заставить бездушную машину работать на себя:))
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на