Помогите пожалуйста решить ** Паскале!!!С клавиатуры вводится два натуральных числа A и...

Question

Помогите пожалуйста решить на Паскале!!!
С клавиатуры вводится два натуральных числа A и B(A

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')<br>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<br> then
writeln('Yes')
else WriteLn('No');
end.