Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
foma2280
19.09.2022 12:36 •
Информатика
Паскаль 10 класс . много чего ещё не понимаю 1) определите сумму четных чисел до числа n введённые с клавиатуры n=10 s=2+4+6+8+10=30 2) составить программу которая вводит с клавиатуры число n и определяет произведение всех чисел n=4 p=1*2*3*4=24
Показать ответ
Ответ:
Snikers2018
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 оценок)
Популярные вопросы: Информатика
zhasbaevamp06rkz
23.11.2020 20:53
Дополни таблицу. объект объект учитель. ученики дирижер. фирма командир. экранные объекты процессор. государство автомобиль капитан. у меня по информатике спорная !...
AbaiMalik05
04.02.2023 13:32
Определить максимальное значение среди положительных элементов из n введенных....
Lol22137853992
26.03.2023 23:51
Состояние некоторого объекта контролируется 27 датчиками. наименьшее количество двоичных разрядов, необходимое для идентификации этих датчиков? в ответе 5, от вас нужно подробное...
Mercedess65amg
26.03.2023 23:51
Напишите программу кубейсик. вычислить с точностью е=0,001 а=0 b=1 значение=0,5 .методом левых прямоугольников...
GoldHorse
08.05.2023 23:11
И ОБЪЯСНИТЕ ПОДРОБНО: Дано трехзначное число. Напишите программу, которая определяет есть ли среди цифр заданного целого трехзначного числа одинаковые: Пример входных данных...
wenefep07126
26.02.2021 08:21
Розробити програмний проект у середовищі Python, за до якого буде перевірятись, чи є простим введено число....
ivanpowerflusi
20.03.2020 15:48
Розробіть програму, за до якої у голов ному вікні розмiщуються однорядкове, багато рядкове текстові поля і дві радіокнопки....
Dragon969
06.11.2021 15:21
Виправте помилки. відноситись до когось; старший по віку; на протязі місяця; вірно відповідати; поштовий адрес; повістка дня; в сім годин; перевернути сторінку....
3aHo3a1538
06.11.2021 15:21
Переведите . to give somebody the creeps....
яМаруся26
06.11.2021 15:21
Ябез шуток у меня в тетради 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.