Предмет: Информатика,
автор: koskas
1.дано целое k>2. напечатать все простые числа из диапазона [2,k]
2.найти первое число Фибоначчи, большее заданного n (n>1).
Ответы
Автор ответа:
0
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.
Классно, что можно заставить бездушную машину работать на себя:))
begin
readln(j);
a := 1;
b := 1;
while (j > a) do
begin
k := b;
b := b + a;
a := k;
end;
writeln(a);
end.
Классно, что можно заставить бездушную машину работать на себя:))
Интересные вопросы
Предмет: Математика,
автор: nastyaplokhova
Предмет: Английский язык,
автор: gokilah830
Предмет: Русский язык,
автор: irihamaha15
Предмет: Биология,
автор: Anya2489
Предмет: Математика,
автор: NATALYA2013