Регистрация
lala70
24.10.2020 20:49
Информатика
Есть ответ 👍

Написать программу в Pascal: Найти сумму квадратов всех целых чисел от а до b (значение а и b вводятся с клавиатуры, b больше а).​

132
449
Посмотреть ответы 2

Ответы на вопрос:

12Go12
12Go12
4,4(32 оценок)

program skab;

uses

crt;

var

i, a, b, s: integer;

begin

s := 0;

writeln('Введите a, затем b (a<b) :');

readln(a, b);

if a < b then

begin

for i := a to b do

s := s + (i * i);

writeln('Сумма квадратов целых чисел от а до b: ', s);

end

else

writeln('Ошибка! Проверьте правильность введённых данных! Закрытие программы...');

readln;

end.

smashsmash83p08jrb
smashsmash83p08jrb
4,7(58 оценок)

ответ: 6

Python

for X in range(1000000):

   if not (X < 6) and (X < 7):

       print(X)

       break

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