Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
DanilSoldatkin
23.07.2021 23:15 •
Информатика
Составить программу для вычисления суммы квадратов чисел от 1 до 15. функция возведения в квадрат sqr(); var , , : ; begin : =0; for : = to do begin ; ; end; writeln(' =', ); end. там, где пробелы, вставить что нужно
Показать ответ
Ответ:
Регина2411
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 оценок)
Популярные вопросы: Информатика
KeberMax
04.01.2022 08:34
Вячейке e7 записана формула: =b4-е10. её скопировали в ячейку g5. какой вид будет иметь формула в ячейке g5? *...
Gumerova0424
04.01.2022 08:34
Какое количество информации (в байтах) соответствует од- ному символу из таблицы unicode?...
Drocket
10.04.2020 02:59
Информатика 8 класс. Паскаль....
svetalychok2
28.03.2023 16:12
Информатика пож сос вопросами (не шарю в робота технике) за...
ddaaww
11.10.2020 06:27
Определите значение выражения на языке Python 8//5+8%3. 2) Каким будет результат выполнения программы a=8 if a 2: print (“two”) if a 10: print (“ten”) 3) Сколько чисел выведет...
kakaha228oleg
15.11.2022 11:37
Эссе на тему: Логика компьютера ....
alyona20107
11.02.2023 11:30
Нужно нарисовать ОДНУ из этих фигур в Microsoft Word...
hlebushek225
30.01.2023 03:13
1. Из перечисленных видов обработки информации выберите направленные на изменение её формы представления. Выберите один или несколько ответов: a. Структурирование b. Логические...
Vladislav553
09.10.2022 14:51
Написать в питоне программу с клавиатуры вводится номер (позиция) буквы в английском алфавите. вывести на экран запрашиваемый символ...
Habibullo32
10.02.2023 11:11
СОЗДАВАЙТЕ! Напишите короткое эссе, в котором отразите основные этапы эволюции цифровых компьютеров. Обратите особое внимание на историю комльютеров в румынском и русском...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.