Сделать программку на паскаль через While. В книжке под номером 3
Сделать программу на паскаль через While. В книжке под номером 3
![](/content/imgs/125/https://ru-static.z-dn.net/files/dd5/42ad32872e79e5ee08c418e2b60a241e.jpg)
![](/content/imgs/125/https://ru-static.z-dn.net/files/d35/b2e3019d9a5c058b08ae9a57df0149f6.jpg)
![](/content/imgs/125/https://ru-static.z-dn.net/files/d19/a8a1488c1dcc79c6e9b2425d1b110641.jpg)
Ответ:
Изъясненье:
1. Числа Фибоначчи
function Fibon (n:integer):longint;
var fib_1,fib_2,fib:longint;
i :integer;
begin
if (nlt;3) then Fibon:=1
else
begin
fib_1 := 1;
fib_2 := 1;
i:=2;
while ilt;n do
begin
fib:=fib_1+fib_2;
fib_1:=fib_2;
fib_2:=fib;
i:=i+1;
end;
Fibon := fib;
end;
end;
begin
writeln('Fib(',40,') = ',Fibon(40));
readln;
end.
============================================
Числа кратные к
program sumkr;
var
n,i,r,k: integer;
sum: longint;
begin
write('Введите число n (1lt;=nlt;=4): ');
readln(n);
r:=1;
for i:=1 to n-1 do
r:=r*10;
write('Введите число k: ');
readln(k);
i:=r;
while i lt;= r*10-1 do
begin
if i mod k=0 then sum:=sum+i;
i:=i+1;
end;
writeln('Сумма чисел от ',r,' до ',r*10-1,' кратных ',k,' = ',sum);
readln;
end.
===
3. НОК
program NOK_a_b;
var a, b, nod, nok,p: integer;
begin
writeln('Введите а и в ');
readln(a, b);
p:=a*b;
while (a lt;gt; 0) and (b lt;gt; 0) do
if a gt; b then a := a mod b
else b := b mod a;
nod := a + b;
nok:=p div nod;
writeln('НОК= ', nok);
readln;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Разные вопросы.
Математика.
Русский язык.
Русский язык.
Разные вопросы.
Қазақ тiлi.
Английский язык.
Математика.
История.