Паскаль программа
1) Посчитать в цикле сумму квадратов чисел (число возвести в квадрат и добавить к сумме от предыдущего шага) от одного до десяти.
2) Посчитать в цикле КОЛИЧЕСТВО четных чисел от 1 до 50 (признак четности числа i mod 2 = 0. Если число четное, то увеличить переменную j на 1 (j=j+1).)

1. Вот так для чего-то решают в школе...// PascalABC.NET 3.2, сборка 1356 от 04.12.2016var  i,j,s:integer;begin  // задание 1  s:=0;  for i:=1 to 10 do s:=s+i*i;  Writeln(s);  // задание 2  j:=0;  for i:=1 to 50 do    if i mod 2=0 then j:=j+1;  Writeln(j)end.Результат38525А вот так можно это решить по-нормальному за минуту.// PascalABC.NET 3.2, сборка 1356 от 04.12.2016// Внимание! Если программа не работает, обновите версию!begin  Writeln(1.To(10).Select(i->i*i).Sum); // задание 1  Writeln(Range(2,50,2).Count) // задание 2end.Результат38525