Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
diman126
06.06.2020 21:10 •
Информатика
Составить программу, вычисляющую сумму квадратов всех чисел от 1 до 100. (в pascal)
Ответ:
ancordkot
24.05.2020 03:22
var
i: integer;
s: real;
begin
s := 0;
for i := 1 to 100 do
s := s + i * i;
writeln(s:7:0);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lionlioness
26.11.2020 20:01
Какие есть единицы измерения кол-ва инфоомации...
Timoha233
02.09.2022 23:38
Прога некорректно работает - переписать согласно пиведёному ниже алгоритму. с# Суть: щёлкаем мышкой по экрану - рисуется окружность. Ситуация: две окружности пересекаются,...
lizabjnyjyve
28.12.2022 10:11
Решите уравнение x^2=5cos(x-1) в табличном процессоре ЭКСЕЛЬ ЗА ВЕРНОЕ РЕШЕНИЕ...
maksategemberdi
17.05.2020 17:15
При таблицы ASCII кодов закодируйте слово 7-класс ...
slava452163525
12.11.2020 05:09
надо на с++ написать задачу как можно проще можно через cout или printf:Даны два массива одинаковой размерности A(N) и В(N). Определить количество элементов, удовлетворяющих...
josen337
30.11.2022 22:49
7. Как увидеть результаты выполнения программы на экране? 8. Можно ли копировать фрагменты программы?...
Ksyusha891
11.06.2021 09:27
Var num : integer; num2 : real; begin readln(num); if num mod 2 = 0 then num2 := num / 4 else num2 := num * 5; writeln(num2); end. тест, блок-схема...
Anyazolotiya
23.05.2023 09:54
Определить значение переменной а после выполнения фрагмента программы а:=10 if a меньше 4 then a :=а+12 else if a больше 4 then a:=а-3 else :=a*2...
farid32222245
28.05.2021 06:55
Каков информационный объем в килобайтах стереоаудиофайла длительностью звучания 32 секунды при глубине звука 8 бит и частоте 16 кГц? 2. Файл с монозвуком имеет глубину...
ммрк
08.08.2021 03:25
Описать таблицу ASCII кодов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
i: integer;
s: real;
begin
s := 0;
for i := 1 to 100 do
s := s + i * i;
writeln(s:7:0);
end.