Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.
Код программы:
function isSevenHere(number : integer) : boolean;var digit : integer;begin Result := true; while (number > 0) do begin digit := number mod 10; if (digit = 7) then exit; number := number div 10; end; Result := false;end;
var i,k :integer;begin write('Введите k: '); readln(k);
for i := 1 to k do if (isSevenHere(i) = true) then write(i,' ');end.
C=25, d=2
т.к.:
1 круг
100/2=50 остаток 0
выполняем цикл
с=50, d=1
2 круг:
50/2=25 остаток 0
выполняем цикл
c=25, d=2
3 круг
25/2=12 остаток 1 (условие не соблюдено)
выходим из цикла
осталось c=25, d=2
Int main(){
for(i=0;i<10;i++)
{mass[i]=rand();}
min=mass[i];
max=mass[i];
for(i=0;i<10;i++)
{if(maxmass[i]) {min=mass[i]; mass[i]=-1;}
}
}
Const a=-1; b=2; h=0.3;
var x,s:real;
i,n:integer;
begin
x:=a-h;
n:=round((b-a)/h)+1;
for i:=1 to n do
begin
x:=x+h;
s:=sin(1/x)/cos(1/x)+2*cos(x/2);
writeln(x:5:1,' ',s:6:3);
end;
end.
Результат:
-1.0 0.198
-0.7 -5.105
-0.4 2.707
-0.1 1.349
0.2 -1.391
0.5 -0.247
0.8 4.852
1.1 2.989
1.4 2.397
1.7 1.987
2.0 1.627
