Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Zarxis
24.02.2022 23:58 •
Информатика
1)написать программу вывода всех четных чисел от 2 до 1000 включительно 2)написать программу определяющую сумму всех нечетных чисел от 1 до 99
Показать ответ
Ответ:
freight1337
25.06.2020 12:17
1)
var
i: word;
begin
for i:=1 to 1000 do
if i mod 2 = 0 then write(i, ' ');
readln;
end.
2)
var
i: word;
sum: word;
begin
sum:=0;
for i:=1 to 99 do
if i mod 2 <> 0 then sum:=sum+i;
writeln('Summa = ', sum:5);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ArtFox12
12.11.2021 23:14
Как войти в интернет на компютере? подскажите...
asvazy123
06.07.2021 11:34
Отгадать правила кодирования 5 6 12 23 123 234 77 555...
Kiberyblydok23
06.07.2021 11:34
Ввести одномерный массив a, вывести его. переставить в обратном порядке все элементы между максимальным и предпоследним отрицательным элементом. , не могу найти предпоследний...
bidak03
23.03.2022 17:11
Составить блок-схему для . дан массив из n целых чисел. выяснить, какое число встречается в массиве раньше – положительное или отрицательное....
georgiy4763743
12.08.2022 13:49
1. виды памяти 2.устройство в вода информации 3.устройства вывода информации...
Polinka80
03.10.2020 17:15
Клава открыла несколько папок и расположила их окна каскадом .за какое минимальное количество кликов по значкам папок в панели клава сможет расположить эти окна по алфавиту так...
Venera879
03.10.2020 17:15
Какое минимальное суммарное количество раз необходимо отразить некоторые буквы на картинке, чтобы получилось название популярного поискового сервиса? а)5 б)2 в)3 г)4....
Ангелина0113
18.07.2022 03:35
Пайтон я снова не понимаю тут надо вывести по н чисел например если н =4, то надо 1234 потом 5678 и тд...
aculkow2017
23.11.2020 07:38
Примените правила недесятичной арифметики вычисления, вычислив выражения. опишите используемый алгоритм. выполнить арифметические операции: 2341(в восьмеричной системе счисления)+...
санти3
14.02.2021 15:45
Ячейки диапазона a1: e4 заполнены по принципу, показанному на рисунке. по этому же принципу заполняются ячейки а5: е11. в ячейку f1 записали формулу и скопировали её во все ячейки...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i: word;
begin
for i:=1 to 1000 do
if i mod 2 = 0 then write(i, ' ');
readln;
end.
2)
var
i: word;
sum: word;
begin
sum:=0;
for i:=1 to 99 do
if i mod 2 <> 0 then sum:=sum+i;
writeln('Summa = ', sum:5);
readln;
end.