Меню сайта

Даны целые числа К и —N.(N&gt-0). Вывести —N -раз числоK.


Program for_1-

Var n,k,i:integer-

Begin

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

Readln(k)-

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

Readln(n)-

For i:=1 to n do

writeln(k)-

Readln-

End.

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

Посчитать сумму цифр —всех — -целых чисел 1 до n.


Program for_10-

uses crt-

var i,j,n,er,s,t : integer-

a : string-

begin

clrscr-

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

s:=0-

for i:=1 to n do

begin

str(i,a)-

for j:=1 to length(a)do

begin

val(a[j],t,er)-

s:=s+t-

end-

end-

write(‘сумма=’,s)-

readln-

end.

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

Имеется n бактерий красного цвета. Через 1 такт времени -красная бактерия меняется на зелёную, затем через 1 такт -времени делится на красную и зелёную. Сколько будет всех -бактерий через k тактов времени?


Program for_11-

uses crt-

var i,k,n,z,nz,nk:longint-

begin

clrscr-

write(‘кол-во бактерий:’)-readln(n)-

(далее…)

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

Можно ли данное натуральное число представить в виде — суммы двух квадратов чисел.


Program for_12-

uses crt-

var k,g,i,j,m : longint-

begin

clrscr-

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

k:=0-

for i:=1 to m do

begin

for j:=1 to m do

if i*i+j*j=m then

begin

k:=k+1-

writeln(i,’*’,i,’+’,j,’*’,j,’=’,m)-

end-

end-

if k&gt-0 then write(‘можно ‘,k,’ способами’)

(далее…)

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

Получить -n четырёхзначных чисел, в записи которых нет двух одинаковых цифр.


Program for_13-

uses crt-

var i,j,k,l,a : longint-

m,n : integer-

begin

clrscr-

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

m:=0-

for i:=1 to 9 do

for j:=0 to 9 do

for k:=0 to 9 do

for l:=0 to 9 do

if (i&lt-&gt-j)and(i&lt-&gt-k)and(i&lt-&gt-l)and(j&lt-&gt-k)and(j&lt-&gt-l)and(k&lt-&gt-l)and(m&lt-=n)then

(далее…)

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

Определить четырехзначные числа, куб суммы цифр которых равен самому числу.


Program for_14-

uses crt-

var i,j,k,l,n:longint-

begin

clrscr-

for i:=1 to 9 do

for j:=0 to 9 do

for k:=0 to 9 do

for l:=0 to 9 do

begin

n:=1000*i+100*j+10*k+l-

if (i+j+k+l)*(i+j+k+l)*(i+j+k+l)=n then

begin

write(‘ — — ‘,n)-

end-

end-

(далее…)

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

Даны купюры 1$,2$,5$,10$ ,их количество — неограниченно. Выдать данную зарплату всеми возможными способами.


Program for_15-

uses crt-

var s,s1,n,a,b,c,d:longint-

begin

clrscr-

write(‘введите сумму денег ‘)-readln(s)-

for a:=0 to s do

for b:=0 to trunc(s/2) do

for c:=0 to trunc(s/5) do

for d:=0 to trunc(s/10) do

(далее…)

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

Сколькими различными способами можно раскрасить грани куба -в четыре цвета. Напечатать возможные варианты.


program for_16-

uses crt-

var n,a,b,c,d,e,f,m:longint-

begin

clrscr-

for a:=1 to 4 do

for b:=1 to 4 do

begin

for c:=1 to 4 do

for d:=1 to 4 do

for e:=1 to 4 do

for f:=1 to 4 do

begin

m:=a*100000+b*10000+c*1000+d*100+e*10+f-

(далее…)

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

Вывести на печать 3-х значные числа, которые делятся на свои цифры и перевертыш этого числа тоже делится на свои цифры.


program for_17-

uses crt-

var a,b,c,m,m1:longint-

begin

clrscr-

for a:=1 to 9 do

for b:=1 to 9 do

for c:=1 to 9 do

begin

m:=a*100+b*10+c-

m1:=c*100+b*10+a-

if (m mod a=0)and(m1 mod a=0)and

(m mod b=0)and(m1 mod b=0)and

(далее…)

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

Вычислить сумму 10 слагаемых 1+1/2+1/3+…+1/n.


Program for_18-

Uses crt-

Var i:integer-

s:real-

Begin

ClrScr-

s:=0-

For i:=1 to 10 do

s:=s+1/i-

Writeln(‘сумма=’,s:4:4)-

Readln-

End.

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

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