Паскаль Найти произведение чисел от 1 до 10

Знания

Информатика

1 ответ:

Свектлана [1]4 года назад

0 0

Произведение можно найти с помощью факториала. Эта функция есть и на калькуляторе, так что можно было ей воспользоваться.
10!=10*9*8*7*6*5*4*3*2=3628800

Читайте также

Дан массив целых чисел А [10]. Найти количество трехзначных чисел, содержащих в себе цифру 7. . Диапазон элементов от 1 до 1000.

АНДРОИД-99

Uses crt;
const N=10;
var a:array [1..N] of integer;
x,k:integer;
begin
k:=0;
for x:=1 to 10 do
begin
a[x]:=random(1000)+1;
writeln('a[',x,']:',a[x]);
if (a[x]>=100) and (a[x]<=999) then
if (a[x] mod 10=7) or (a[x] div 100=7)
or (a[x] div 10 mod 10=7) then inc(k);
end;
writeln('Количество трехзначных элементов, содержащих цифру 7:',k);
<span>end.</span>

0 0

4 года назад

Прочитать ещё 2 ответа

RAM в ROM. Что это? Расскажите, пожалуйста.

Yelizavett [21]

RAM - объём оперативной памяти

ROM - объём встроенной памяти.

0 0

4 года назад

Прочитать ещё 2 ответа

Решите пожалуйста 1 задачу) Срочно!!! 1) На столе стояло 8 стаканов с черешнями. Маша съела два стакана с черешнями. Сколько ста

GrafIgor

8, так как Маша съела ягоды, а не стаканы

0 0

3 года назад

Помогите составить две задачи с div и mod. Относительно легкие

ik7709

var x, L, M: integer;

begin

readln(x);

L := 0;

M := 0;

while x > 0 do

begin

L := L + 1;

if x mod 2 = 0 then

M := M + (x mod 10) div 2;

x := x div 10;

end;

writeln(L);

writeln(M);

end.

0 0

1 год назад

Дано 3 значное число.Найдите 1)Среднее арифметическое и его цифры.2)Сумму квадратов его цифр.

pnTn13

Var n,sum,sum2,d,ind,i,j:integer; sred :double;
begin
Write('n');
Readln(n);
d:=1;
ind:=3;
sum:=0; sum2:=0;sred:=0;
for i:=0 to ind-1 do
begin
sum:=sum+(n div d) mod 10;
sred:=sum/3;
sum2:=sum2+ sqr((n div d) mod 10);
d:=10*d;
end;
Writeln('suma ',Sum);
Writeln('Sum 2 ',sum2);
writeln('Sred ',sred:0:5);
//Writeln('вывод цифр');
d:=1;
for i:=0 to ind-1 do
begin
writeln((n div d) mod 10);
d:=10*d;
end;
readln;
end.

0 0

4 года назад