Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Alien1712
12.04.2023 21:37 •
Информатика
1) составить программу для нахождения суммы чисел 1 сотни, которая делится на 3. (паскаль) 2) составить программу для нахождения суммы чисел от 500 до 700. (паскаль)
Показать ответ
Ответ:
regroom
24.09.2020 07:54
//Pascal ABC.NET v3.1 сборка 1172
//1
Var
n,i,s:integer;
begin
n:=0;
for i:=1 to 100 do
begin
n:=n+3;
s:=s+n;
end;
writeln(s);
end.
//2
Var
i:integer;
r:integer;
begin
for i:=500 to 700 do
r:=r+i;
writeln(r);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Милана070800
27.01.2023 00:25
Аесли в реферате введение небольшое и после него внизу ещё остаётся место, всё равно 1 тему писать с нового листа?...
gxgvxf
27.01.2023 00:25
Текст записано в кодуванні ascii. після того як із тексту видалили 80 символів його інформаційний обсяг став дорівнювати 200 бітам.знайдіть обсяг вхідного тексту в байтах...
nik22041
27.01.2023 00:25
Как правило в реферате каждая глава начинается с нового листа, а если в реферате нету глав только темы, то что в этом случае делать? так же писать каждую новую тему с нового листа?...
qwertyzored
27.01.2023 00:25
7) дано произвольное натуральное число, в котором все цифры различны. удалить все цифры между максимальной и минимальной цифрой. можно сделать в паскале ,симантике ,,с++...
Amana95
27.01.2023 00:25
Перечислите. команды исполнителя. верблюжонок 90...
2006adelya
01.03.2020 11:49
1. разработать и написать алгоритм определения s = b(c + d)/(k − 1). 2. составить алгоритм вычисления х! = 1*2*3* *х....
238064356
01.03.2020 11:49
Паскаль с процедуры заменить максимальную цифру для пяти чисел на заданное число с(можно для одного числа)...
1234Носок
01.03.2020 11:49
Укажите минимальный объем памяти в (мбайт), достаточный для хранения любого растрового изображения размером 1024х1024 пикселей, если известно что в изображении используется 16...
Ирина8891
01.03.2020 11:49
Напишите программы, которые в зависимости от введенного числа либо вычисляют функцию, либо сообщение, что функция не определена. y=1/x, y=корень x*2 (x в квадрате) -1...
ученикпро1
01.03.2020 11:49
С++ дано предложение, оканчивающееся точкой. требуется подсчитать количество цифр в нём....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//1
Var
n,i,s:integer;
begin
n:=0;
for i:=1 to 100 do
begin
n:=n+3;
s:=s+n;
end;
writeln(s);
end.
//2
Var
i:integer;
r:integer;
begin
for i:=500 to 700 do
r:=r+i;
writeln(r);
end.