Назовем целое число n замечательным, если для него справедливо равенство n2=(n – 1)2 + m2, где м – целое число. даны два целых числа а и в. найти количество замечательных чисел из диапазона [a, b] включительно. например, в диапазоне [1,10] таких чисел два, а именно числа 1 и 5.

входные данные: ввести в одной строке два целых числа а и в (1< =a< =b< =109), разделенных пробелом.
выходные данные: записать количество замечательных чисел из заданного диапазона.

составим уравнение:

x- первая корзина

y- вторая корзина

x+54=x+y

x-x+54=y

y=54 - (во второй корзине)

x=54+38

x=92

z- третья корзина

z=x-27

z=92-27

z=65

ответ: в третей корзине 65 орехов

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?

дело в том, что цифра это знак, и буква это знак.

как-то

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.