Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
yubloh
22.08.2022 05:41 •
Информатика
Снаписанием программы! нужно написать программу в паскале. найти сумму а1+2а2+3а3+..+8а8
Показать ответ
Ответ:
juliajulia005
22.06.2020 02:50
Program sum;
uses crt;
var
a,r:real;
i:integer;
begin
clrscr;
r:=0;
writeln('Vvedite chislo a: ');
read(a);
for i:=1 to 8 do r:=r+(i*a*i);
writeln('Otvet: ',r);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
16912
24.09.2021 11:54
Pascal. дана информация о 6 вкладчиках в сберкассы. запись имеет вид: фамилия, район, соц положение, величина вклада. вывести данные о том, столько среди вкладчиков...
VanilRio
11.07.2021 08:13
Укажите последовательность выполнения шагов решения задачи на компьютере - проставьте в правильном порядке: * ...
beskrovnaja
23.12.2021 20:46
Контрольная работа по информатике «Итоговая контрольная работа по информатике. 8 класс»Инструкция по выполнению работыит из трех частей, включающих в себя 11 заданий....
mikkie3
12.01.2020 14:05
Самым большим жестким диском был? сколько видов авторского права и их навзание даю...
Huran
02.02.2023 01:44
Кто Отличник По Информатике. ...
Ярослав4497
19.04.2023 03:30
Итоговый тест по информатике 7 класс Вариант 3 1. Зафиксировать информацию тем или иным на некотором носителе, значит- a) принять информацию б) сохранить информацию...
nysha046
10.03.2023 06:56
Напишите алгоритм выполнения создание модели в скейтчап...
boikov2o
05.10.2021 15:51
информатика контрольная работа 1 задание укажите в ответе наибольшее из четырёх чисел переведите число в одну систему счисления в любую 51 в 16 степени 14 в 18 степени...
OniksX
17.03.2023 20:57
Стереоаудиофайл передается со скоростью 32 000 бит/с. Файл был записан при среднем качестве звука: глубина кодирования – 16 бит, частота дискретизации – 48 000 измерений...
Ритааааааа
03.05.2023 08:48
1. Выберите значок, которая оказывают. Приран программа, котораяпозволяет создавать, редактировать и печатать текстовые документы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var
a,r:real;
i:integer;
begin
clrscr;
r:=0;
writeln('Vvedite chislo a: ');
read(a);
for i:=1 to 8 do r:=r+(i*a*i);
writeln('Otvet: ',r);
end.