4 года назад

Найти произведение цифр целого положительного числа, введенного с клавиатуры

1 ответ:

игорь19685554 года назад

0 0

Dim i As Integer
Dim x As Integer
Dim Summ As Integer

i = InputBox("Введите целочисленное положительное число")
Summ = 1
For x = 0 To Len(CStr(i)) - 1
Summ *= CInt(Mid(CStr(i), x + 1, 1))
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Next

MsgBox(Summ)

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

Составить алгоритм умножения: положительного числа на 2, а отрицательного на 4

diana---

Pascal:

Program p1;

Var a:real;

Begin

If a>0 then a:=a*2;

If a<0 then a:=a*4;

Writeln(a)

end.

0 0

4 года назад

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

Составить программу на языке QBasic для решения уравнения ax+b=0

SweetTwok [6]

CLS
INPUT "a=", a
INPUT "b=", b
IF a = 0 THEN
   IF b = 0 THEN
      PRINT "Resheniy beskonechno"
   ELSE
      PRINT "Resheniy net"
   END IF
ELSE
   PRINT "x="; b / a
END IF
END

0 0

1 год назад

Лимон вид источника и способ получения информации

Артур197709

Источник - фруктовое дерево
Получение информации - с помощью зрения, осязание, запах

0 0

4 года назад

Используя операторы "для" и "да" , составить программу ,вывести на экран числа от 0 до 60

4epni4ka

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
сч: ЦЕЛ;

УКАЗ
ОТ сч := 0 ДО 60 ВЫП
Вывод.ЧЦел("%d^", сч, 0, 0, 0)
КОН

КОН Задание.

0 0

4 года назад

Помогите пожалуйста написать программу на паскале!!! Даны целые числа н (н>0), a1,....,aн. Все члены последовательности a1,.

brk spb

Var n,a,b,i,min:integer;
mass:array[1..100000] of integer;
begin
writeln('Введите кол-во элементов массива');
read(n);
writeln('Введите числа');
for i:=1 to n do// задаем массив пока i не станет равно n (i:=i+1 )
read(mass[i]);//считываем массив с индексом i
min:=mass[1];// обозначаем первый элемент массива за первый
b:=1;// индекс от первого элемента массива
for i:=1 to n do//цикл задаем массив пока i не станет равно n (i:=i+1 )
if mass[i]<min then begin//при условии что массив будет меньше первого числа то
b:=i;// обозначаем индекс
min:=mass[i];// обозначаем новый минимальный массив
end;
for i:=1 to b-1 do// задаем массив пока i не станет равно b-1 (i:=i+1 ); и еще b-1 значит чтобы само число b не входило в цикл
mass[i]:=mass[i]*mass[b];// домножаем на меньший массив
writeln('Полученный массив');// вывод массива
for i:=1 to n do
write(mass[i]:6);
end.

0 0

4 года назад