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

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

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

↓

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

lizaaaaaaaaaaaaaaas

13.01.2022 03:10

Дано неотрицательное число n- количество элементов массива (n =100) заполнить массив первыми натуральными числами больше 300, делящимися нацело на 13 или на 17...

gavrilindan

17.11.2020 18:57

Вкажіть істинні твердження а) існують вибірки, всі значення яких, крім одного, менші за середнє. б) існують вибірки, всі значення яких менші за середнє. в) частота...

Gregorie

02.10.2021 16:35

Какие професии работают с информацией три примера ...

Nastyusha222

19.08.2021 15:25

Решить 13 паскаль. программу и блок-схему...

сомфя2

28.12.2021 04:25

Вплемени хоконуев есть свой алфавит, состоящий из 30 согласных и 34 гласных букв. найдите сколько бит информации потребуется на кодирование символа такого алфавита?...

Mari333111

28.04.2020 06:09

Написать по возможности одну программу для паскаль...

zofiaoxd1zb

18.06.2021 06:29

Найти все целые трёхзначные числа сумма цифр которых равна 6.pascal abc....

Дамир2207

03.03.2022 22:53

Какие события называются случайными? примеры...

айрин429

03.03.2022 22:53

20б такое условие . буду кто сможет выполнить: чему равно наибольшее двузначное десятичное число в восьмеричной системе счисления...

mmhhmuraad

24.03.2022 12:42

Справка о междугороднем тел. разговоре содержит: номер телефона абонента(6 цифр),дату(год, месяц, число),время(час, минута), код города(3 цифры), номер телефона...

Ответ:

Самина2006

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

Ответ:

Книга086

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 Оформи подписку