Question

Помогите пожалуйста решить на Паскале!!! С клавиатуры вводится два натуральных числа A и B(A<B). Найти сумму квадратов всех чисел от А до В включительно. Если сумма меньше 100, вывести сообщение «Yes», иначе «No».

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadInteger2;
  var s:=Range(a,b).Select(t->t*t).Sum;
  if s<100 then Writeln('Yes') else Writeln('No')
end.

Answer 2

Rogram summakv;

var
a,b,i,s: integer;

begin
Writeln('Введите a и b');
ReadLn(a,b);
for i:=a to b do
begin
s := s + sqr(i);
end;
if s<100
then
writeln('Yes')
else WriteLn('No');
end.

Answer 3

Конечно, вот программный код на Pascal, который решает эту задачу:

pascalCopy code
program SumOfSquares;

var
  A, B, Sum, I: integer;

begin
  // Введите значения A и B
  write('Введите значение A: ');
  readln(A);
  write('Введите значение B (B должно быть больше A): ');
  readln(B);

  Sum := 0;

  // Вычисляем сумму квадратов чисел от A до B
  for I := A to B do
  begin
    Sum := Sum + I * I;
  end;

  // Проверяем сумму и выводим соответствующее сообщение
  if Sum < 100 then
    writeln('Yes')
  else
    writeln('No');
end.

Просто скопируйте этот код в среду разработки Pascal и запустите программу. Она запросит ввод двух натуральных чисел A и B, а затем вычислит сумму квадратов чисел от A до B и выдаст "Yes" или "No" в зависимости от результата.