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


GDIZzzEr
08.04.2022 02:01

Найти произведение чисел введеных с клавиатуры, пока не будет введен 0

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
ppavlowich
ppavlowich
14.08.2020 08:19
ответить на 1) чертеж представленный тремя называется чертежом. 2) все виды на чертеже находятся в связи, которая осуществляется посредством . 3) плоскость, перпендикулярная фронтальной...
Танюня123125443
Танюня123125443
14.08.2020 08:19
Вклассе 30 человек. за контрольную работу по получено 6 пятерок, 15 четверок, 8 троек и 1 двойка. какое количество информации в сообщении о том, что иванов получил четверку?...
Vitalihka
Vitalihka
12.02.2023 03:27
C++ , как вывести этот код в main.cpp int GenComb(int* arr, int n, int k){ for(int i = k - 1; i =0; i--) { if (arr[i] n - k + i + 1){ ++arr[i]; for (int j = i + 1; j arr [j] =...
vaporen
vaporen
30.04.2022 12:45
19151352089147 23931154 208919 23125 31513519...
blinovaa
blinovaa
10.10.2020 14:38
Придумай, какие уроки должны быть в школе юных волшебников, и составь расписание по дням недели. не забудь добавить к расписанию название и эмблему школы. !...
DAMALOVE
DAMALOVE
10.10.2020 14:38
1)выведите квадраты натуральных чисел не превосходящих 50. 2)если а=10,то выйти из программы,а если меньше,то посчитать сумму этих чисел....
emkaemkovich902
emkaemkovich902
14.09.2020 20:11
Вполночь на подоконнике стояли в ряд (слева направо) герань, крокус и кактус. каждое утро маша, вытирая пыль, меняет местами цветок справа и цветок в центре. днем таня, поливая...
Петуч
Петуч
13.03.2023 15:18
Действия опасные для програмного обеспечения поже...
zoology1g
zoology1g
26.10.2022 03:08
Вообщем написал программу на паскале, а она не работает: program proga; var a,b,c,d,x1,x2: real; begin writeln( дано уравнение вида ax^2+bx+c=0 ); writeln ( укажи переменную a...
vsalchenkoovhi36
vsalchenkoovhi36
26.10.2022 03:08
Написать программу, которая запрашивает возвраст и выводит сообщение (подросток или нет). будем считать возвраст подростка от 11 лет до 15 лет. (pascal)...
Ответ:
adidok199680
16.09.2020 22:27
Var a,b:integer;
begin;
b:=1;
a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
b:=b*a;
end;
writeln(b);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота