Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Glazkovanuriya
17.05.2023 17:48 •
Информатика
1. подсчитать произведение n введенных чисел. (цикл с предусловием) 2. вычеслите разность между суммой четных и суммой нечетных чисел из числового промежутка от 1 до 50.(цикл for) 3. вывести на экран n звездочек. (цикл с постусловием) заранее !
Ответ:
Машаrobotg
05.10.2020 17:43
Var p,i: integer;
begin
p:=1;
read(n);
x:=1;
while x<=n do
p:=p*i;
writeln(p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Evelina300606
31.08.2021 10:38
Реши так умножай числа в таблице и шде совпали вместе в ряду числа получается буква реши пословицу...
Ульяна2732
08.05.2022 01:01
1) Среди приведённых трёх чисел, записанный в десятичной системе счисления, найдите число, в двоичной записи которого наименьшее количество единиц. В ответе запишите количество единиц...
человек9527
29.04.2023 01:25
Сколько ячеек электронной таблицы содержит диапазон B4:F12?...
НадеждаАрико
06.01.2022 15:52
Що таке формула? З чого вона складається? Приклад запису формули в текстовому редакторі ...
OlegBasov
03.10.2022 01:38
Подсчитайте, сколько байт в памяти занимает рисунок размером 20 на 40 пикселов, закодированный с палитрой 64 цветов....
magistr7818
26.08.2021 18:12
Очень надо Заранее Ввод одномерного массива Х1,X2,...,Xn: Выберите один ответ: a. FOR i:=1 TO n DO read(X[i]); b. FOR i:=n TO n DO writeln(X[i]); c. FOR i:=n TO 1 DO readln(X[i]);...
kabdollaevaalia
16.12.2020 18:53
Проблема с FinalBIG / Непонятные символы в программе Непонятные символы в программе, как сменить кодак, то есть избавиться от символов? Слева картинка ( так и должно быть ) справо...
sonechka201
30.10.2020 22:01
1. find the matching 1.do you mind if i call you? a. that sounds like a lot of fun! 2.we’re going to the beach for a week. b. of course not. don’t hesitate. 3.can i cry on your shoulder?...
Maxys365
30.10.2020 22:01
Найдите значение выражения как можно быстрее...
Fae42
30.10.2020 22:01
Впечатления рассказа чехова * шуточка * 2-3 предложения мне...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
p:=1;
read(n);
x:=1;
while x<=n do
p:=p*i;
writeln(p);
end.