Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
albinasaydilova
24.01.2021 01:51 •
Информатика
Составить программу для вычисления суммы квадратов чисел от 1 до 15. функция возведения в квадрат sqr(); var , , : ; begin : =0; for : = to do begin ; ; end; writeln(' =', ); end. там, где пробелы, вставить что нужно
Показать ответ
Ответ:
dayanocha0080
02.10.2020 01:19
Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do
Begin
x:=sqr(i);
s:=s+x;
End;
Writeln('suma =',s );
End.
2) второе решение
Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do s:=s+sqr(i);
Writeln('suma =',s );
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Валерия11111246
25.07.2021 15:33
Вопросы по информатике как на ваш взгляд, удобнее копировать и перемещать файлы: через контекстное меню или перетаскивая их мышью? сравните разные точки зрения.2.какие выделения...
Дани4ка14
13.09.2022 20:40
Определение однотабличной базы данных (не примеры ,не то как их создавать,а определение ,именно что это) !...
kozarmarjna15
25.03.2023 14:55
В файле контрольная работа по информатике...
planeta88
18.08.2021 09:43
Информационное сообщение объёмом 8 кбайт состоит из 6144 символов. Сколько символов содержит алфавит, при которого было записано это сообщение?(Дано и Решение)...
Polina300696
12.02.2023 06:52
Первые два сделала а эти не могу (...
020910
14.10.2021 04:39
What will be displayed by the following code? print(“A”, end = ‘ ‘) print(“B”, end = ‘ ‘) print(“C”, end = ‘ ‘) print(“D”, end = ‘ ‘) a. ABCD b. A, B, C, D c. A B C D d. A ...
79184493272
16.11.2020 00:37
Сколько секунд потребуется модему, передающему сообщения со скоростью 128000 бит/с, чтобы передать сообщение объёмом 281 Кбайт?...
Кириииил
18.03.2022 19:29
с задачей. До начала каникул остаётся D дней. Определите сколько полных недель и сколько дней до начала каникул. Выделите операторы программы, необходимые для решения этой задачи....
БоняЛизякин
02.01.2022 02:11
Каждая страница книги содержит 20 строк , по 50 символов в каждой строке. книга состоит из 152 страниц. рассчитать информационный объём учебника и записать ответ в кбайт.заранее...
nparshina14
30.11.2020 22:36
Реши методом вычислений (!)....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
s:=0;
For i:=1 to 15 do
Begin
x:=sqr(i);
s:=s+x;
End;
Writeln('suma =',s );
End.
2) второе решение
Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do s:=s+sqr(i);
Writeln('suma =',s );
End.