Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
alino4ka2012
15.01.2020 03:42 •
Информатика
Паскаль 10 класс . много чего ещё не понимаю 1) определите сумму четных чисел до числа n введённые с клавиатуры n=10 s=2+4+6+8+10=30 2) составить программу которая вводит с клавиатуры число n и определяет произведение всех чисел n=4 p=1*2*3*4=24
Показать ответ
Ответ:
Vladislava111111111
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 оценок)
Популярные вопросы: Информатика
natapova12
05.06.2022 13:25
Написать программу для подсчёта количества вхождений подстроки в строку. (язык с++)...
Незнайка2015все
08.04.2020 21:06
Пмг реш зад по языку програмир python вставить в массив два элемента с данными значениями: первый – после максимального элемента, второй – перед максимальным элементом....
меча
08.04.2020 21:06
Плз решить по языку программирование python дано натуральное число n. составить программу, печатающую в порядке возрастания все не четные числа кратные 7 в промежутке [1..n]. число...
ZEROBONE
02.08.2021 12:59
Моделирование называется объект имеюшей...
maxpotekhin2002200
02.08.2021 12:59
Даны два числа а,в . напишите условие сравнения значений переменных а,в. если число больше ,то вывести его на печать...
kseniyazoloto
16.10.2021 15:09
Ходом презентації керують за виберіть дві правильні відповідіа) переходівb) анімаціїс) гіперпосиланьd) тригерів...
Яночка86864864
29.05.2020 03:18
Запишите инструкцию 1. позволяющую ввести три переменные 2. позволяющую вывести на экран предложение сегодня хорошая погода 3. присваивающую переменной v значение7 ...
yliana121
23.08.2022 19:41
Вставлення копії слайда увказаному місці це...
Q666Princess666Q
25.04.2023 21:36
Найти область определения функций: 1) y=√(5-2х) + 1; 2) y=(1/x²-х) + 2х; 3) у= 3х-1/ x²-3х+2...
Саша5601
25.04.2023 21:36
Будут ли равными средние скорости шарика при его движении на первой и вторй половинах пути? почему?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.