Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
moaariishkkaa
06.07.2022 04:45 •
Информатика
даны два целых числа a и b (a
Показать ответ
Ответ:
jdzhafarova
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 оценок)
Ответ:
silverg2005p00xxj
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 оценок)
Популярные вопросы: Информатика
diasline
22.02.2022 05:00
Автомобиль проезжает s км за t часов. требуется разработать программу длы вычисления скорости движения автомобиля. 1) программу должна содержать очистку экрана 2) резльтат...
10154
10.10.2020 12:30
Сор по информатике есть ответы ? ...
Karina11222
16.01.2021 18:29
(a v ¬b) v a заполните таблицу истинности 45...
AmiKot1105
06.08.2021 08:27
Террария не запускается - появляется заставка, музыка, потом вылетает, не загружая главное меню, и появляется окно ошибки (в закрепе ниже). DirectX, Visual C++ 2015-2019,...
teslinovpavel
09.05.2020 20:20
Миша включил компьютер и открыл текстовый редактор. В нём он решил, используя шрифты Verdana и Tahoma размером только 16 пт, набрать слово информатика .Он хочет подсчитать,...
hren4
07.11.2022 14:14
Bufferedreader reader = new bufferedreader(new inputstreamreader(system.in)); string one, two; int one_1, two_2; one = reader.readline(); two = reader.readline(); one_1 =...
irinairina12
22.05.2022 17:48
9 класс «Действие над векторами» 1.Начертить рисунки в тетради, при этом учитывая, что сторона клетки равна 5мм, а 1мм - пяти H Измерить модули векторов при линейки (во всех...
nezandenzar
03.02.2021 03:17
35. А. Составьте список ключевых слов и словосочетаний по теме урока....
lenabogdanv1
01.01.2021 08:36
Написать доклад на тему Можно ли человека ничего не знающего православие считать культурным Обоснуй свою точку зрения ОЧЕНЬ НАДО Самый понятный ответ отмечу лучшим...
toshakalashnik
01.01.2021 08:36
Крейсерская скорость пассажирского самолёта Боинг 747 равна 915 км/ч, а размах крыльев равен 59,64 м. Определите разность потенциалов, индуцированную между концами крыльев,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.