tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
даны два целых числа a и b
даны два целых числа a и b (a
elizavetafilip2
2 27.08.2019 04:10
1
Ответы
qwejajka
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.
ПОКАЗАТЬ ОТВЕТЫ
abdrahmanova136
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Dalgat0
09.08.2019 03:00
Решить по информатике, . если что проверять нужно будет в паскале. 1.найти максимальный элемент в массиве из 11-ти чисел [0,100] и вывести его порядковый номер....
ксю882
29.07.2019 02:50
Информационные сети предоставляют абоненту: а) информационные услуги; б) выполнение решений ; в) выполнение решений с обменом программами и данными; г) информационные...
ulyana783
29.07.2019 02:50
Сколько бит в памяти компьютера займёт слово программирование...
daniela07
10.08.2019 16:00
Определите число стоящее впереди числа 35 в шестеричной системе...
leafkKuro
10.08.2019 16:00
Используя линейный односвязный список найти введённое с клавиатуры число, удалить число стоящий перед найденным за 1 позицию и вставить число, введённый с клавиатуры,...
enindanila24
13.04.2020 09:25
Дан алгоритм для Робота: алг нач нц 6 раз вправо; закрасить кц кон 1.Если левее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится...
ekatsinrom
23.02.2021 17:22
решите пример 527191-12020+5389 ...
рома1341
23.02.2021 17:22
64. Доберіть до кожного прислівника синонім — слово чи сполучення слів. Запишіть слова парами.Без відома, без кінця-краю, без ліку, без мети, без пуття, без сліду,...
Девочка134
23.02.2021 17:22
Каково значение архимедовой силы, действующей на плотностью погруженную в море батисферу объем 4м³? Плотность морской воды 1030 кг/м³...
sir228qwerty
23.02.2021 17:22
Знайти площу проекцiii ромба зi стороною 8 см i кут 135 фi 45...
Популярные вопросы
Определите виды придаточных в ССП...
2
На языке Дан массив A размера N. Вывести его элементы в следующем...
1
Решите уравнение х^6=-(12-8х)^3...
2
В ателье СШИЛИ спортивные КОСТюмы мальчикам и девочкам. Девочкам...
2
Песня про царя Ивана Васильевича... 1. Закономерна ли проявленная...
2
решить логарифмические выражение На дистанционное обучение выложили...
1
какие детали подчёркивают, что жизнь героини осталась в по дорогам...
3
1. Үлкендер мен балалы әйелдерге орын беру керек....
1
Эссе на тему образование ...
2
Найдите площадь тр-ник АВС, если А(-6;-2), В(4;8), С(2;-8)...
3
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.