Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Aizere20060304
05.02.2023 14:53 •
Информатика
Pascal вычислить сумму 1^4+2^4++n^4 (while, repeat until или for)
Ответ:
velvis2050
02.10.2020 17:18
Program al;
var n,i,s:integer;
begin
writeln('vvedite n =');
readln(n);
s:=0;
for i := 1 to n do
s:=s+sqr(i)*sqr(i);
writeln ('s=',s);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alexalevdorovic
05.11.2021 16:51
можете с проблемой вылазиет это а клавиатура не реагирует на нажатия что делать ?во все порты переключал и да порты рабочие может кто сталкивался за скам баню...
Ryfyss
28.01.2022 20:08
Рассмотрите программный код и определите, что будет выведено на экран в результате его исполнения. s=’zbcdbceab’ print(s.count(‘bc’, 0,8)) s=s.replace(‘bc’,’xy’) print(s.count(‘xy’,...
dpravdivaya
07.10.2020 04:17
Напишите программу, которая в последовательности целых чисел определяет, каких чисел больше - четных или оканчивающихся на 3 - и на сколько. программа получает на вход целые числа,...
Sevinch123
08.10.2022 03:13
Что такое полное имя файла? какими средствами можно определить полное имя файла....
dazacyhko
15.11.2020 14:46
Определите результат программы. 1 str= Молодец! 2 print(str[0;3])...
valeri1232
26.03.2020 02:26
15 Угол А четырёхугольника ABCD, вписанного в окружность, равен 78°. Найдите угол С этого четырёхугольника. ответ дайте в градусах. B с Ы, и D и ответ:...
Enweys
16.11.2021 07:19
Пті) 2-3 сөйлеммен қорытындылаңдар. Күн көзін бұлт шалса, қыс қарлы, жаз жаңбырлы болады. Күн батарда көк-жиек қызыл шапақ шашса, ауа райы жылынады. Ай шалқалап туса, ауа райыжайсыз...
aruzhanormanova
18.04.2020 00:53
Выберите правильный вариант из предложенных. . 1. What is that? (A - They/B - 11/C - There is my computer. 2. My brother is [A one B - a/C- and officer. 3. (A — This B — These/C-...
stf74149
26.02.2023 05:03
Мануфактура – еңбекті бөлісу және қолөнер техникасына негізделген кәсіпорынкөпестердің бірігуіцехтарды біріктіруауыл шаруашылық кәсіпорнықолөнер шеберханаларының иелерінің бірқатар...
idkfndnf
17.03.2023 20:21
По данным условиям на координатной прямой отметь числа в тетради и выбери верные утверждения (правильными могут быть несколько ответов).a 0, b 0, с 0, а b, c a.Верных ответов:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var n,i,s:integer;
begin
writeln('vvedite n =');
readln(n);
s:=0;
for i := 1 to n do
s:=s+sqr(i)*sqr(i);
writeln ('s=',s);
readln;
end.