Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
NiazMth
29.10.2022 07:30 •
Информатика
даны два целых числа a и b (a
Ответ:
ivanignatov201
14.08.2020 21:22
Var
A,B:integer;
S:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
S:=0;
For B:= A to B do
S:=S+B*B;
WriteLn('S = ',S);
End.
0,0
(0 оценок)
Ответ:
karina24264
14.08.2020 21:22
Var s,a,b,i:integer;
begin
read(a,b);
s:=0;
for i:=a to b do
s:=s+sqr(i);
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
marinakomarova
02.05.2020 14:01
Опре¬де¬ли¬те раз¬мер сле¬ду¬ю¬ще¬го пред¬ло¬же¬ния в дан¬ной кодировке ASCII Программы-переводчики успешно переводят текстовые материалы, написанные «сухим» языком. 2. С кодировочной...
Георгий20004
28.02.2020 22:51
Назовите основание соответствующие алфавиту системы счисления А 0,1 Б 0,1,2,3,4 В 0,1,2,3,4,5,6,7,8,9ABSDEF...
Сергей0081
30.08.2022 15:21
Сколько бит байт содержится в слове Программа...
главный13
28.06.2021 10:01
Задание 3: сообщение состоит из 10 страниц, на каждой странице написано 305 символов. Определите, сколько различных символов содержится в используемом алфавите, если объем информации...
IvanShadow
03.03.2020 03:01
Это интересно! Самая продаваемая игра - Tetris. На дан-ный момент продано более 40 миллионов еестечаен на вопросы1. Какие блоки использовались при создании игры?2. Какие блоки имеются...
danyXelper
18.11.2021 11:19
3. Какие действия могут привести к интернет-зависимости?Одолгое времяпровождение всоциальных сетяхОпрослушивание ненужнойинформацииО Oиспользование носителейинформациизанятие самовоспитанием...
Chelovek987654321
20.12.2020 19:17
Письменно в тетради напиши алгоритм для написания в стрелочке числа 626262....
Profesor2Max
27.12.2021 19:07
4. определи определи в каждой ситуации информации...
Darkness171
30.09.2022 18:15
(в ответе укажите только число без указания основания системы)...
s0f21
17.01.2023 10:58
3. Определите формат текстового файла А. wayB.jpgC. tiffD. docx4. Определите формат аудио-файла A. wavB. movC. docD. txt...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
A,B:integer;
S:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
S:=0;
For B:= A to B do
S:=S+B*B;
WriteLn('S = ',S);
End.
begin
read(a,b);
s:=0;
for i:=a to b do
s:=s+sqr(i);
writeln(s);
end.