Ввести натуральное число N и вычислить сумму всех чисел Фибоначчи, меньших N. Предусмотрите защиту от ввода отрицательного числа N.
Ввести натуральное число
N и вычислить сумму всех чисел Фибоначчи, меньших N. Предусмотрите защиту от
ввода отрицательного числа N.
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,d:integer;
begin
writeln('введите то число до которого выводить числа');
readln(d);
b:=0;
a:=1;
if d<0 then while d<0 do begin
writeln('введено неверное число ,попробуйте ещё разок');
readln(d);
end;
writeln('числа Фибоначчи ');
while c
Не нашли ответ?
Похожие вопросы