Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
artemchik25
20.09.2022 23:19 •
Информатика
1*2*3*4*5 посчитать произведение при цикла for
Ответ:
artemafanasev2003
28.09.2020 16:57
//Pascal ABC.NET 3.1 сборка 1219
Var
i,k:integer;
begin
k:=1;
for i:=1 to 5 do
k:=k*i;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Malifisen
20.06.2020 04:23
Сколько итераций будет выполнено в следующем цикле? x : = 10 нц x : = x-3 кц_при x 0...
slovendim
14.11.2020 08:31
Иван десять секунд записывал двухканальную запись с частотой дискретизации 16 кгц и глубиной кодирования 24 бита. затем он 10 секунд записывал одноканальную запись с теми же...
FREDYPAW
04.04.2021 22:08
Вячейке а1: а20 вводятся произвольные числа .найти наибольшее по абсолютному значению число...
Tusya007
19.06.2021 07:33
7дм в квадрате равно скольким см в квадрате? ...
ekzz1
05.02.2022 08:18
Осветление темных волос гидроперитом или явление...
тигр186
23.12.2022 14:47
Дано: треугольник abc, ab=bc, ac меньше ab на 2 см, p= 160см найти стороны треугольника abc...
yestarday23
10.03.2023 05:36
Среди ниже трех чисел, записанных в десятичной системе счисления, найдите число, в двоичной записи которого наименьшее количество единиц. в ответе запишите количество единиц...
KowMAp
22.12.2020 00:00
Что такое этнографический диктант?...
Hikolog
01.01.2022 20:17
Сколько кг дров надо сжечь чтобы нагреть 25кг воды на 27°с потерями теплоты прeнебречь...
violka5
26.04.2020 10:54
252 в восьмеричной+ 7 в шестнадцатиртчной перевести в десятеричную( с решением )...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Var
i,k:integer;
begin
k:=1;
for i:=1 to 5 do
k:=k*i;
writeln(k);
end.