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

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

Ответ:

lisonka200

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

Ответ:

zybikrybik

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

Популярные вопросы: Информатика

marinasok23

15.08.2022 20:40

Книга ексель состоит из листов. на лист 1 находиться таблица с расчетами. на лист 2 необходимо отобразить эту же таблицу только в режиме формул. как включить режим формул в...

fackaF39

30.11.2020 18:22

Выберите правильно записанный адрес ячейки в электронной таблице выберите один или несколько ответов: u6! м45 1к аа12...

mariyakohtuk

30.11.2020 18:22

8_7. дан массив из 15 чисел. вывести элементы массива в указанном порядке: а1, а15, а2, а14, а3,13, и т.д. 8_8. дан массив. найти первый локальный минимум (локальный минимум...

makon3

30.11.2020 18:22

Задана последовательность из n целых чисел. определить среднее арифметическое отрицательных элементов последовательности. написать программу в pascal....

виола153

30.05.2021 03:29

Одномерные массивы: составить программу, заполняющую массив, состоящий из n элементов, введенными с клавиатуры целыми числами. требуется вывести массив на экран компьютера и...

Единорожка2306

30.05.2021 03:29

Отметьте правильную запись имени текстового файла? 1) basa-com; 2) basa.txt; 3) : basa.txt; 4)basa.sys...

cherru1

14.09.2022 01:19

Нужно по этой схеме создать рабочую программу в Паскале 30б...

arsjaja

23.11.2021 01:35

Напишите программу для выполнения перестановки первого нечетного и первого отрицательного элементов массива...

nslava783

19.06.2021 19:47

Дана строка. среди символов встречаются цифры. написать программу, вычисляющую сумму всех цифр...

sharinaEl

19.06.2021 19:47

Синформатикой, дан текст. слова в тексте разделены одним или несколькими пробелами. написать программу, выводящую все слова в алфавитном порядке....

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

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