Написать программу для Pascal. Найти произведение цифр числа введенного с клавиатуры.

Знания

Информатика

1 ответ:

Korica1 год назад

0 0

var n, p: integer;
begin
read(n);
p := 1;
repeat
p := n mod 10 * p;
n := n div 10;
until n = 0;
write(p)
end.

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

Задан одномерный массив А(N) (N<=60). На место минимального элемента массива записать сумму последних К элементов массива. Ес

Mamont248 [21]

Var
A:array[1..60] of integer;
k,i,MIN,ind, MAX,SUM:integer;
begin
SUM:=0;
readln(k);
randomize;
writeln('Исходный массив:');
for i:=1 to 60 do
begin
  A[i]:=random(15)-5;
Writeln('A[',i,']=',A[i]);
end;
MIN:=32600;
MAX:=-32600;
for i:=1 to 60 do //Ищем минимальный элемент
begin
if a[i]<MIN then
MIN:=a[i];
ind:=i;
end;
for i:=1 to 60 do //Ищем максимальный элемент
if a[i]>MAX then
MAX:=a[i];
for i:=60 downto 60-k do //Сумма последних k элементов
SUM:=SUM+a[i];
A[ind]:=SUM;
if A[1]>=0 then
  for i:=1 to 60 do
begin
A[i]:=A[i]*sqr(MIN);
Writeln('A[',i,']=',A[i]);
end
else
for i:=1 to 60 do
begin
A[i]:=A[i]*sqr(MAX);
Writeln('A[',i,']=',A[i]);
  end;
end.

0 0

4 года назад

Исполнитель Чертёжник действует на координатной плоскости. У него есть перо, которое может быть поднято или опущено. При поднят

XX-bo [81]

Получилось вот что) кораблик)

0 0

4 года назад

Какой из представленных ниже форматов не относится к форматам файлов, в которых сохраняют текстовые документы? ODT DOC TXT JPG P

Анна Ремизова [2]

JPG- графический формат.

0 0

4 года назад

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

НАПИСТЬЬ ПРОГРАМУ НА ПАСКАЛЕдан массив из 12 случайных чисел от 0 до 30 вывести на экран индексы четных элементов массава

лишь мнение

Var ar:array[1..12] of integer;
ar2:array[1..12] of integer;
i,k:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 12 do
begin;
ar[i]:=random(30);
write(ar[i]:4);
if ar[i] mod 2=0 then
begin;
inc(k);
ar2[k]:=i;
end;
end;
writeln;
writeln('Final array:');
for i:=1 to k do
write(ar2[i]:4);
end.

0 0

4 года назад

Барс решил осмотреть достопримечательности астаны. Путешествия Барс устал и сменил одежду. Напишите программу, которая будет вып

Alfred Teplov [5.2K]

Сделаете короче, поделитесь)

0 0

4 года назад