Меню сайта

Найти минимальное число, которое представляется суммой четырёх квадратов натуральных чисел не единственным образом.


Program for_19-

uses crt-

var ch,a,b,c,d,k,cc:longint-

begin

clrscr-

for ch:=1 to 100 do

for a:=1 to 100 do

for b:=1 to 10 do

for c:=1 to 10 do

for d:=1 to 10 do

begin

if cc&lt-&gt-ch then k:=0-

if a*a+b*b+c*c+d*d=ch then begin cc:=ch-inc(k)- end-

(далее…)

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

Даны два целых числа —AиB(A&lt- —B). Вывести в порядке возрастания все целые числа, расположенные между —Aи —B(в том числе —Aи —B), —a -также количество —Nэтих чисел.


Program for_2-

Var a,b,i,k:integer-

Begin

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

(далее…)

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

Получить все способы расстановки шести книг разных авторов.


Program for_20-

uses crt-

var k,i1,i2,i3,i4,i5,i6,i7,i8,m,fl:longint-

mm:string-

begin

clrscr-

for i1:=1 to 6 do

for i2:=1 to 6 do

for i3:=1 to 6 do

for i4:=1 to 6 do

for i5:=1 to 6 do

for i6:=1 to 6 do

begin

m:=i6+i5*10+i4*100+i3*1000+i2*10000+i1*100000-

(далее…)

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

Составить программу вычисления значений функцийf(x) = —xsin(x) на отрезке [0,pi/2] с шагом —h= (ba)/m. Результаты представить с точностью 0,0001.


program cikl_1-

uses crt-

var m:integer-

a,b,x,h,y:real-

begin

ClrScr-

a:=0- b:=pi/2- m:=10- h:=(b-a)/m-

x:=0-

while x&lt-pi/2 do

begin

y:=х-sin(x)-

x:=x+h-

(далее…)

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

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


Program cikl_6-

uses crt-

var i,n,k,s : longint-

b : integer-

begin

clrscr-

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

readln(n)-

k:=1-

while n&gt-=1 do

begin

b:=trunc(n) mod 10-

s:=s+b-

n:=trunc(n) div 10-

k:=k+1-

end-

write(‘s=’,s)-

readln-

end.

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

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


Program cikl_7-

Uses crt-

Var e,s,ss:real-

i,n:integer-

begin

ClrScr-

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

while abs(s-ss)&gt-=e do

begin

ss:=s-

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

n:=n+1-

end-

writeln(s:5:3)-

readln-

end.

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

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


Program cikl_8-

Uses crt-

Var a,i:integer-

S:longint-

Begin

ClrScr-

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

while s&lt-=100 do

begin

a:=a+2-

i:=i+1-

s:=s+a-

end-

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

readln-

end.

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

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


Program cikl_9-

Uses crt-

Var a,i:integer-

p:longint-

Begin

ClrScr-

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

while p&lt-=100 do

begin

a:=a+2-

i:=i+1-

p:=p*a-

end-

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

readln-

end.

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

Даны два целых числа —AиB(A&lt- —B). Найти сумму всех целых чисел от —Aдо —B -включительно.


Program for_3-

Var a,b,i,s:integer-

Begin

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

Readln(a)-

Writeln(»введите число B’)-

Readln(b)-

For i:=A to B do

begin

s:=s+i-

end-

Writeln(‘сумма чисел= ‘,s)-

(далее…)

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

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


Program cikl_10-

Uses crt-

Var n,k:integer-

Begin

ClrScr-

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

readln (n)-

k:=0-

while n&gt-0 do

begin

n:=n div 10-

k:=k+1-

end-

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

readln-

end.

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

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