Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
justnastya1
23.04.2023 05:38 •
Информатика
1)написать программу вывода всех четных чисел от 2 до 1000 включительно 2)написать программу определяющую сумму всех нечетных чисел от 1 до 99
Показать ответ
Ответ:
Sweetdreams2003
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 оценок)
Популярные вопросы: Информатика
mylifeartem
14.12.2021 03:06
Var k,m: integer; Arr: array [1..10] of integer; begin ArrИнформатика: учебник для 6 класса/ Л.Л.Босова, А.Ю Босова:= -3; ArrИнформатика. 6 класс: самостоятельные и контрольные...
Anorwen
08.09.2020 17:55
Программа записана на трех языках программирования. Определить, что будет выведено на экран, если ввести 1) n = 2019, 2) n = 2020, 3) n = 2021...
5312макс1245
24.08.2020 03:13
Напишите программу в которой вводятся два числа a и b. затем первое число уменьшается в 2 раза, а второе увеличивается на 30. выведите измененные значения переменных...
errreir
11.05.2023 03:12
1) купили 3 одинаковые пачки печенья,всего 900 граммов,и 2 одинаковые коробки конфет, всего 800 граммов.на сколько граммов коробка конфет тяжелее,чем пачка печенья? купили...
янина1511
11.05.2023 03:12
Составьте портрет взволнованного человека, описывая действия жестов, описание глаз и т.д. пример : когда я посмотрел на свою сестру, я сразу понял, что она чем-то взволнована....
тата238
11.05.2023 03:12
Два мальчика играют на гитаре, один - на . на чем играет юра, если миша и петя и петя и юра играют на разных инструментах?...
lololololololololo11
11.05.2023 03:12
Камень свободно падает с высоты 56 метров(без начальной скорости). определить время падения камня и скорость в момент падения на землю....
оникс999
11.05.2023 03:12
Разделите многочелен на двучелен: 2x^4+7x^2-21x-30 x+1...
SANMAN26
11.05.2023 03:12
Площадь озера 79,6 км2 объем 710 млн. м3 . найти среднюю глубину озера с точностью да десятых метров...
gusarova17
11.05.2023 03:12
Цитати до образу чіпки варениченка?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.