Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
9955Х
07.01.2021 12:11 •
Информатика
Паскаль 10 класс . много чего ещё не понимаю 1) определите сумму четных чисел до числа n введённые с клавиатуры n=10 s=2+4+6+8+10=30 2) составить программу которая вводит с клавиатуры число n и определяет произведение всех чисел n=4 p=1*2*3*4=24
Показать ответ
Ответ:
Jordan2281337
13.07.2020 20:17
Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.
2.Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
olya2005i
26.06.2021 07:22
Дано вещественное число а и натуральное число n. вычислить значения а1, а2, . возведения в степень не использовать вообще не понимаю чего-то...
kg9191
04.08.2022 18:23
Якщо на одну шальку терезів посадити даринку,яка важить n кг і наталку яка важить на 5 кг менше ,а на другу шальку насипати m кг цукерок скільки кг цукерок треба зїсти дівчаткам...
vustiya69
09.07.2021 20:03
Как выложить фото сюда куда нажимать...
2000lev94
04.09.2020 21:24
Количество маршрутов в прямоугольной таблице В прямоугольной таблице N×M вначале игрок находится в левой верхней клетке. За один ход ему разрешается перемещаться в соседнюю клетку...
Лолери
25.10.2021 17:44
Делаем срезы Посчитайте заданные характеристики строки. Циклы использовать нельзя. Входные данные Дана строка, состоящая из строчных и прописных букв латинского алфавита. Гарантируется,...
Леееера1
30.06.2021 23:59
Количество слов Дана строка, состоящая из слов, разделённых пробелами. Определите, сколько в ней слов. Используйте для решения задачи метод count. Входные данные Вводится строка....
deniskakuzovle
13.12.2022 23:22
Александр составляет все возможные четырехбуквенные комбинации, которые можно составить из букв слова ВИКТОР, соблюдая при этом три правила: 1. Каждую букву можно использовать...
keti230187
07.06.2023 21:11
Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит заштрихованной области, и false в противном Подробно Саму суть понимаю Не понимаю как...
gorlatenkoviktoria
28.03.2023 08:34
Фразу Я не знаю,где встретиться нам придётся с тобой!Написали много раз на странице (смотри образец). Сколько раз написали фразу, если общий информационный объем абзаца составил...
NASTIAMURKA
28.06.2021 07:10
Каким логическим оператором связаны ключевые слова в простом запросе в рассмотренных поисковых машинах?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.
2.Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
end.