logo
Войти Регистрация Спроси ai-bota


130181
08.03.2022 03:33

Написать программу вычисления произведения однозначных чисел от 1 до 9 паскаль с циклом Do

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
nasipkalievnurz
nasipkalievnurz
12.04.2022 08:50
Заполнить одномерный массив случайными целыми числами от -15 до 15 . вычислить сумму элементов больших 12...
малика225
малика225
12.04.2022 08:50
Составить мат. модель, алгоритм, программу для решения следующей : найти стоимость покупки с учетом скидки. скидка в 10 % предоставляется, если сумма покупки больше 1000 рублей....
Мертвый0Анархист
Какой объем видеопамяти необходим для хранения четырех страниц изображения при условии: разрешающая дисплея равна 640х480 точек, а используемых цветов– 32 . Срочо За ранее )...
sukaheva
sukaheva
27.12.2020 21:42
Какое меню в текстовом редакторе используют для вставки диаграммы в документ a)edit b)insert c)format d)table...
Юлиана95631
Юлиана95631
25.08.2021 20:02
Алмас в понедельник потратил на дорогу от дома до школы 15 минут., во вторник - 18 минут., в среду - 13 мин.вычислите, сколько времени он тратит на дорогу в среднем каждый день....
Like923
Like923
19.01.2022 16:37
Середи 2014 монет 1 фальшивая, как за 2 взвешивания на чашечных весах без гирь определить, легче она или тяжелее, чем настоящая? )...
katy0987
katy0987
24.11.2021 22:48
Решите на Python 3.81. Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти полученное число.2. Дано трехзначное число. Определить, какая...
ученик1862
ученик1862
13.10.2021 06:15
Надо написать 2-3 предложения о лошадей.зароние...
nikitakuryan228
nikitakuryan228
13.10.2021 06:15
даю 15 б.дам еще гиперссылка...
Demidoova
Demidoova
09.03.2022 10:04
1.плотность железного тела равна 7,8 г/см³, а алюминиевого - 2 700 кг/м³. у какого из тел плотность больше? 2.масса цилиндра равна 4,52 кг, а объём 400 см³. чему равна плотность цилиндра?...
Ответ:
томара80
13.10.2020 23:01

program z1;

var a,p:integer;

begin

a:=0;

p:=1;

repeat

a:=a+1;

p:=p*a

until a=9;

writeln (p)

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота