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)

0 0

4 года назад

Составить программу: Слово ТУРБИНА заменить словом РЕЗИНА Слово МОНИТОР заменить словом КОНТАКТ . Должна получиться одна програм

Petrovich 29635 [17]

var x:string;

begin

x:='Турбина';

writeln(x);

x:= 'Резина';

writeln(x); // writeln выводит текст

// с переменной х.

//Можно убрать.

x:='Монитор';

writeln(x);

x:='Контракт';

writeln(x);

end.

0 0

4 года назад

Пожалуйста помогите!!! Спасибо

кыргыз

(a-c^2*c) /(sgrt(z)+7) -2 ответ a)

0 0

1 год назад

Чтобы выбрать фоновый цвет,необходимо

VaShNeI

Для того, чтобы сделать фоновый цвет, то нужно выбрать необходимый цвет и выбрать заливку

0 0

4 года назад

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