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

Найти произведение чисел в диапазоне от 1 до 23 с шагом 3. т.е. 1, 4, 7,

Ответ:

FUpp

23.09.2020 13:04

Var i,b:integer;

begin

b:=1;

i:=1;

while i<23 do begin

b:=b*i;

i:=i+3

end;

print(b);

end.

0,0(0 оценок)

Популярные вопросы: Информатика

olka52

04.04.2020 18:57

Выбери верно записанную программу на языке программирования Паскаль. Программа для нахождения суммы элементов массива. (Количество элементов в массиве — 24). var i,s:integer;...

Lagoona030

25.02.2021 16:27

Команда с которой можно заштриховать фигуру в паскале абц...

PatiFon4ik

25.02.2021 16:27

Нужно. в классе 20 учеников писали контрольную работу по . оценки как целые случайные числа в интервале от 2 до 5. напишите программу,которая подсчитывает средний за контрольную...

Serenael666

14.01.2023 06:41

Сделать в с++ Заполнить файл f последовательного доступа целыми числами, полученными с генератора случайных чисел. Вывести его на экран. Получить в файле g те компоненты f,...

Eskhere

26.01.2020 08:33

Проверочная работа по теме «Файлы и файловая структура» Вариант 2 1. Дан путь к файлу: С:\ Мои документы\ Мои рисунки\ Растения\ Цветы\ Ромашки.bmp Укажите: А) имя файла Б)...

Gusein123

11.05.2022 01:18

Чему будет равно значение с переменной c в результате выполнения фрагмента программы a: =125; b: =25 ; c: =12; if a div 25=0 then if a mod 12=0 then c: =b div (a mod c) else...

Albina1809

11.02.2022 08:42

Напишите условие выбора чисел меньше 100 и кратных 5...

vikhas123

13.12.2020 00:24

Визначте значення всіх змінних у результаті їх виконання. а) x: =0; y: =1; while y 4 do begin x: =x+y; y: =y+1 end; б) x: =0; i: =1; repeat i: =i+1; x: =x+1/i; until i 6;...

timbn2006

17.09.2022 19:23

В чем состоит родство человека и природы??? Развёрнутый ответ, много предложений. 5 класс...

gukalovaekateri

17.09.2022 19:23

Подпишите разряд в скобочках ( во или относительное) 1.К которому часу ты вернёшься? 2.Я пока не знаю, к которому часу мне удастся вернуться. 3.Я не успел узнать, как зовут...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку