Меню сайта

Найти все делители натурального числа n.


Program ciklp_3-

Uses Crt-

Var n,i:longint-

BEGIN

ClrScr-

Write(‘Введите число…’)-

Readln(n)-

Write(‘Делители числа ‘,n,’ : ‘)-

i:=1-

repeat

if n mod i = 0

then Write(i,’ ‘)-

Inc(i)-

until i&gt-n-

readln-

END.

Категория: Циклы | Дата: 11.11.12

Составить программу нахождения НОД(наибольшего общего делителя ) -и НОК (наименьшего общего кратного) двух чисел a и b.


Program ciklp_4-

uses crt-

var a,b,p : real-

nod,nok : real-

begin

clrscr-

write(‘a=’)-readln(a)-

write(‘b=’)-readln(b)-

p:=a*b-

repeat

if a&gt-b then a:=a-b

else b:=b-a-

until a=b-

nod:=a-

(далее…)

Категория: Циклы | Дата: 10.11.12

Найти наименьшее однозначное число х удовлетворяющее условию x*x*x-x*x=n.


Program ciklp_5-

uses crt-

var x,n : longint-

ot : boolean-

begin

clrscr-

write(‘n = ‘)-readln(n)-

ot:=false-

x:=1-

repeat

inc(x)-

if x*x*x-x*x=n then ot:=true-

until — ((x*x*x-x*x=n) or (x=10))-

if ot=false then write(‘нет’)

else write(‘x=’,x)-

(далее…)

Категория: Циклы | Дата: 10.11.12

Составить алгоритм нахождения суммы цифр числа


Program ciklp_6-

uses crt-

var i,n,k,s : longint-

b : integer-

begin

clrscr-

write(‘введите число — ‘)-readln(n)-

k:=1-

repeat

b:=trunc(n) mod 10-

s:=s+b-

n:=trunc(n)div 10-

k:=k+1-

until n&lt-1-

write(‘s=’,s)-

readln-

end.

Категория: Циклы | Дата: 10.11.12

Найти сумму ряда — -с точностью —e=0,001.


Program ciklp_7-

Uses crt-

Var e,s,ss:real-

i,n:integer-

begin

ClrScr-

s:=1- ss:=0- e:=0.001- — n:=1-

repeat

ss:=s-

s:=s+1/sqr(2*n-1)-

n:=n+1-

until abs(s-ss)&lt-e —

writeln(s:5:3)-

readln-

end.

Категория: Циклы | Дата: 10.11.12

Найти сколько слагаемых необходимо, чтобы сумма 2+4+6+… оказалась больше 100.


Program ciklp_8-

Uses crt-

Var a,i:integer-

S:longint-

Begin

ClrScr-

a:=2-i:=1- s:=2-

repeat

a:=a+2-

i:=i+1-

s:=s+a-

until s&gt-100-

writeln(‘количество слагаемых =’,i)-

readln-

end.

Категория: Циклы | Дата: 09.11.12

Найти сколько множителей необходимо, чтобы произведение 2*4*6+… оказалась больше 100.


Program ciklp_9-

Uses crt-

Var a,i:integer-

p:longint-

Begin

ClrScr-

a:=2-i:=1- p:=2-

repeat

a:=a+2-

i:=i+1-

p:=p*a-

until p&gt-100-

writeln(‘количество множителей =’,i)-

readln-

end.

Категория: Циклы | Дата: 09.11.12

Найти количество цифр в целом числе.


Program ciklp_10-

Uses crt-

Var n,k:integer-

Begin

ClrScr-

Writeln(‘введите число’)- readln (n)-

k:=0-

repeat

n:=n div 10-

k:=k+1-

until n=0-

writeln(‘количество цифр =’,k)-

readln-

end.

Категория: Циклы | Дата: 09.11.12

Вычислить интеграл методом прямоугольника:

3
∫ -Sin2X2/lnX -dX, — — — -с шагом -h=0.5
2

Program Integral-

Uses crt-

Const a=1,b=3,h=0.5-

Var n,i:integer-

— — — — — -S,integ,y,x:real-

Begin

— — — — — — — Readln(a,b,h)-

— — — — — — — n:=(b-a)/h-

(далее…)

Категория: Циклы | Дата: 08.11.12

— -Вычислить значения функций -f(x) -и -g(x) на отрезке [a,b] с шагом -h.

F(x)=ctgx-lnx- — -g(x)=etg(x-2)— — -[1,5.5]- — -h=0,5-

Program func-

Uses crt-

Var x,x0,xm,f,g,h:real-

Begin

— — — — — — — — Readln(x0,xm,h,)-

x:=x0

while x&gt-=xm do begin

(далее…)

Категория: Циклы | Дата: 08.11.12

Страница 4 из 512345
Меню раздела
Блок