Меню сайта

Вычислить —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

Страница 27 из 27« Первая...1020...2324252627
Меню раздела
Блок