Простите для меня это сложно
Рабочий стол, у ПК это место где хранятся все приложения
PAscal abc.
<em><u>Проверка.</u></em>
введите кол-во элементов массива
10
-8 -12 10 14 -1 13 -9 14 3 11
сумма=41<span>
</span>
357, 375, 573, 537, 753, 735 так 6
333, 357, 375, 555, 573, 537, 777, 753, 735 так 9
вроде нечего не забыла
Var
A: integer;
begin
readLn(A);
if (A mod 2 = 0) then
begin
A := sqr(A);
WriteLn('Квадрат введённого числа равен: ', A);
end else
begin
A := ((A mod 100) div 10) + (A mod 10) + (A div 100);
writeLn('Сумма цифр введённого числа равна: ', A);
end;
end.