1. Информатика
  2. Пусть в переменной b находится

Пусть в переменной b находится 4-х значение число. Напишите команду нахождения произведения средних цифр этого числа.​

Знання6666 Знання6666    2   20.10.2020 04:22    0

Ответы
kksa2001 kksa2001  19.11.2020 04:22

var b,p,a:integer;

begin

readln(b);

p:=1;

b:=b div 10;

a:=b mod 10;

p:=p*a;

b:=b div 10;

a:=b mod 10;

p:=p*a;

writeln(p);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
safeer safeer  13.10.2019 20:11
Рассмотрите следующее описание рекурсивной функции: function f(x, y: real): real; begin if x =y then f: =x else f: =f(x+1,y-1) end; каким будет значение f(1, 10)?...
Shagovikova08 Shagovikova08  13.10.2019 20:08
Определите значение s после выполнения следующих операторов. i: =0; j: =2; while i =10 do begin i: =i+1; j: =j+1; s: =j-i; end;...
sasha230200487 sasha230200487  15.04.2020 16:19
Записать логическое выражение. Даны три числа. Увеличить в 5 раз те из них, которые отрицательны. Остальные оставить без изменения. 2) Записать логическое выражение....
Kuznecovanaste Kuznecovanaste  15.04.2020 16:19
Представить в трех различных кодировках сло­во «Кодировка»....
щувовтслалтв щувовтслалтв  15.04.2020 16:19
4. Дан алгоритм:Алг ПримерНачx=5 y=-6если (x y) то (z=x+y) иначе (z=y-x)вывод (z)Кон алгОпределите результат выполнения алгоритма​...
AngryStraus AngryStraus  15.04.2020 16:18
Напишите программу вычесление значения функции y(x), график которой представлен ниже​...
SHAHRUKH575 SHAHRUKH575  15.04.2020 16:18
3. Файл размером 500 Мбайт передаётся через некоторое соединение в течение 4 минут. Определите размер файла (в Кбайт), который можно передать через это соединение за...
armagedon641 armagedon641  15.04.2020 16:17
Задание к контрольной работе № 4 Исходные данные: В школе № 321 проходили предметные олимпиады. В них успешно выступили ученики 9А, 9Б, 10А и 10Б классов. Классный руководитель...
hussrav98 hussrav98  15.04.2020 16:17
С КЛАВИАТУРЫ ВВОДИТСЯ n ПРОИЗВОЛЬНЫХ НАТУРАЛЬНЫХ ЧИСЕЛ.НАЙТИ СУММУ ТЕХ ИЗ НИХ,У КОТОРЫХ КОЛИЧЕСТВО ДЕЛИТЕЛЕЙ НЕЧЕТНО ПАСКАЛЬ...
sofa285 sofa285  15.04.2020 16:16
паскаль)Для каждой из нижеперечисленных функций вычислить значения функций при любых целочисленных параметрах, используя условный оператор в полной форме и неполной форме...

Популярные вопросы