Меню сайта

Ввести —Nразличных чисел. Найти количество положительных чисел.


Program for_5-

Var a,n,i,k:integer-

Begin

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

Readln(n)-

k:=0-

For i:=1 to N do

Begin

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

readln(a)-

if a&gt-0 then k:=k+1-

end-

Writeln(‘количество положительных чисел= ‘,k)-

Readln-

End.

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

Используя -ряд -P=1-1/3+1/5-1/7+1/9-…,произвести вычисления Р сначала с точностью -E=10-6.


Programa4-

Usescrt-

Vark,i,n:integer-

— — — — — — P,S1,S2,E:=real-

Begin

— — — — — — Readln(E)-

— — — — — — While 1-S1+S2&gt-=E do begin

(далее…)

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

Вычислить —n!


Program -for_6-

uses crt-

Var p:longint-

i, n:integer-

Begin

ClrScr-

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

Readln(n)-

p:=1-

For i:=1 to n do

p:=p*i-

Writeln(n, ‘!= ‘,p)-

Readln-

End.

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

Найти сумму чисел от 1 до —n


Program -for_7-

uses crt-

Var s:longint-

i, n:integer-

Begin

ClrScr-

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

Readln(n)-

s:=0-

For i:=1 to n do

s:=s+i-

Writeln( ‘s= ‘,s)-

Readln-

End.

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

Дано натуральное число n. Верно ли, что сумма цифр этого числа является нечётной.


Program for_8-

uses crt-

var a : string-

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

begin

clrscr-

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

s:=0-

for i:=1 to length(a) do

begin

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

s:=s+t-

end-

if s mod 2&lt-&gt-0

then write(‘сумма являетсяся нечётной’)

(далее…)

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

Натуральное число из n цифр является ся числом Армстронга, т.е. сумма его цифр возведенная в — -степень —n, равна самому числу (153=1*1*1+5*5*5+3*3*3).Получить все числа — Армстронга для n=4 и n=3


Program for_9-

uses crt-

var i,j,k,l : integer-

n,m : longint-

begin

clrscr-

begin

for i:=1 to 9 do

(далее…)

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

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