Ответы и объяснения

2013-12-17T22:20:57+04:00
1)max число=4992
program if_03;
uses crt;
var ch:integer; p:boolean;
{ch - число;
p - логическая переменная, определяющая условие целочисленного деления}begin clrscr;ch:=5000; p:=false; {исходные значения} 

repeatp:=ch mod 39 =0 ;
dec(ch) {уменьшаем число на 1}until p=true ;

if p then writeln('ch=', ch+1) else writeln('таких чисел нет')end.

2)
varn, n1, n2, n3, k: integer;begin
readln(n);
n1 := 1;
n2 := 1;
n3 := 2;
k := 0;
if (n=1) or (n=2) then k := 1;
while n3 <= n do
begin
if n3=n then k := 1;
n1 := n2;
n2 := n3;
n3 := n1 + n2;
end;
if k = 1 then 
writeln(n, ' является числом Фибоначчи')
else 
writeln(n, ' не является числом Фибоначчи');
end.