Войти Регистрация Спроси ai-bota

даны два целых числа a и b (a

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

mdotsenko

23.06.2020 19:48

Слово в информатике из 12 или больше букв...

Макс528103

23.06.2020 19:48

Сформировать массив из 20 вещественных чисел и поменять местами 5 и 10 элемент....

незнакомка1232

31.01.2022 21:07

Ввелокроссе участвуют 119 спортсменов. специальное устройство регистрирует прохождение каждым из участников промежуточного финиша, записывая его номер с использованием...

sassshaaa

15.06.2022 18:07

Вдетском саду 52 ребёнка. каждый из них любит конфеты или мороженое. половина из них любит конфеты, а 20 человек - конфеты и мороженое. сколько детей любит мороженое?...

verchik1739

15.06.2022 18:07

На диске хранилось 5098567 байт,нужно записать на дискету.сколько дискет для этого понадобится? (1 дискета-1,39мб) нужно...

XУЙ228228

15.06.2022 18:07

Что подключается к шине через коммуникационные порты...

янакуницкая2017

15.06.2022 18:07

25 ! каждая страница учебника содержит 60 строк, в каждом строке - 40 символов . учебник состоит из 176 страниц. определите информационный объем учебника....

msvichinevskay

12.01.2020 19:19

Напишите, какие действия необходимо произвести на компьютере, чтобы создать на диске (D:) систему папок Р1, Р2, РЗ, Р4, Р5,Р6 вида: - Р2 – РЗР1 – - Р4 - Р5 - Р6На...

lisopat

31.01.2023 03:34

Число 1111000 В восьмиразрядном представлении имеет вид: 01110000111100002111000O100111000...

Efendieva2004

17.10.2021 08:56

Выделите красным ложные высказывания...

Ответ:

sofiyabutina667

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 оценок)

Ответ:

ksenchhh

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 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку