tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вычислить сумму всех четных
Вычислить сумму всех четных чисел до 50 паскаль
сашуня29
2 16.08.2019 03:20
1
Ответы
gfsggstgf
04.10.2020 22:13
Var
i, sum:integer;
begin
sum:=0; {важно обнулить}
for i:=2 to 50 do {если 50 не включать, то: i:=2 to 48}
if i mod 2 = 0 then sum:=sum+i;
writeln('Сумма четных чисел от 1 до 50 равна: ',sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Vero23
18.01.2021 18:06
Уровень Знание и понимание1. Что такое «язык программирования»?22.2. Почему языки программирования делятся на машиннозависимые и ма-3. Как вы понимаете термин «трансляторы»?4....
tigr951
23.10.2020 10:41
Какие виды визуального дизайна вы знаете ИНФОРМАТИКА...
ayakabdadhev
23.10.2020 10:32
уровень 96 97 app balatech asia...
kudzhan
25.05.2020 15:28
Як з аналоговой інформацій зробити цифру...
Ferzpi
25.05.2020 15:28
1. Дайте самый полный ответ. Информация — это ... 1. сведения об окружающем нас мире 2. то, что передают по телевизору в выпусках новостей 3. прогноз погоды 4. то, что печатают...
gwo
25.05.2020 15:28
Запишите числоПутем логических рассуждений, найдите и запишите число, пропущенное в этой последовательности:3, 5, 8,17, 23...
Диа773
25.05.2020 15:28
Здравствуй! Вот еще задача на Паскале: Известна сумма номеров страниц книги, определить номер последней страницы. Например, сумма номеров стр = 55, последняя страница 10 . Т.е....
УРВ05052001
28.04.2020 10:47
Самостоятельная работа 1. Любая программа на языке С++ содержит основную программу - функцию с именем ¬¬¬¬¬¬¬¬¬¬¬¬. 2. Символами // начинается¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬,который действует...
ektgdb
28.04.2020 14:30
Какая из нижеперечисленных логических функций не имеет аргументов: а) ЕСЛИ б) ИСТИНА в) НЕ г) И...
Лисёнка2005
28.04.2020 14:30
Соответствие между изображениями символов и кодами символов устанавливается с визуализация распознавание текста диаграммы кодовые таблицы...
Популярные вопросы
ответить на вопрос. какую опасность для мореплавателей представляет айсберг...
3
Радиус окружности 7 см секущая проведенная из точки находящийся на расстоянии...
2
Почему при открывании бутылки с газированной водой выделяется много углекислого...
2
Акак перевести 3/5 ц и 3/5кг в граммы...
3
Изложение про белку план 1.резвый и не поседливый зверек .2дупло белки .3 в...
2
Написати протилежні слова до -прилетіли,щебечуть....
3
Напиши научный рассказ о превращении гусеницы в бабочку...
2
Надо 5 предложений на тему германия, на...
2
Различают сколько видов кровотечения...
1
Составить предложения со словом исправить...
2
i, sum:integer;
begin
sum:=0; {важно обнулить}
for i:=2 to 50 do {если 50 не включать, то: i:=2 to 48}
if i mod 2 = 0 then sum:=sum+i;
writeln('Сумма четных чисел от 1 до 50 равна: ',sum);
end.