Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Amin1402
12.04.2020 07:53 •
Информатика
Составьте программу нахаждения суммы квадратов натуральных чисел от 15 до 25 .
Показать ответ
Ответ:
Dasha555511111
08.10.2020 14:06
Program p1;
uses crt;
var a,b,i:integer;
begin
for i:=15 to 25 do begin
a:=a+i*i;
b:=i*i;
writeln('Сумма:',a,'(квадрат числа :',i,'=',b,')');
end;
write(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sadnaadina00
21.08.2022 09:30
Визначте скільки бітів та байтів в слові процесор при 8 бітному кодуванні?...
Фидачина
04.05.2020 20:35
A. до земли рукой подать имя входного файла: стандартный ввод имя выходного файла: стандартный вывод ограничение по времени: 1 секунда ограничение по памяти: 256 мегабайт марсиане...
akopovalizaveta
14.12.2021 04:27
Запишите число 87 в 8-разрядной сетке в беззнаковой форме...
katyamm11
02.11.2020 22:27
Карандашик любит рисовать фигуры. определите направление линии рисования и начертите фигуру, которая получится после выполнения алгоритма. когда щелкнуть по зеленому флажку установить...
zemkaaa1
15.05.2022 21:57
Имеется множество целых натуральных чисел A и множество отрицательных чисел B что можно сказать про эти множества?множество не пересекаются множество А входит в состав Вмножество В...
МорскойКот
20.07.2022 17:09
1. На какие виды подразделяются инструменты программы SketchUp? 2. Для чего предназначен инструмент Тяни толкай?3. Какова функция инструмента Окружность?...
shvey
18.07.2021 15:52
Определи формулу с использованием функции ЕСЛИ в ячейке В2....
Ansora12
16.02.2021 18:49
Назовите задачи, характеристики и структуру системы контроля и диагностики пк...
anat1
29.11.2022 06:54
Домашнее задание Айгерим создала рисунок в графическом редакторе и со-хранила его на Рабочем столе. Она хотела увеличить рисуноки распечатать, но рисунок потерял качество изображения.Как...
Amyy1
20.01.2020 16:15
Что может размещаться на форме Excel ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var a,b,i:integer;
begin
for i:=15 to 25 do begin
a:=a+i*i;
b:=i*i;
writeln('Сумма:',a,'(квадрат числа :',i,'=',b,')');
end;
write(a);
end.