задача по программированию

[КсенияСергеева]

1)Даны 15 чисел, определите номер изначального числа квадрат которого максимален.
2)Первую степень числа "а" больше нуля,превышающее заданное число "n".
3)Написать программу выводящюю на экран таблицу сложения.
помогите пожалуйста )
з.ы. Нельзя использовать массив

[Bugrimov]

Ксения есть ли у Вас наработки, а главное на каком языке программирование реализуете.....????

[КсенияСергеева]

наработок нет,сессия,дел много,не успеваю все,а язык- ABC Паскаль

[Mad_Cat]

Написать программу выводящюю на экран таблицу сложения.
помогите пожалуйста )

for a:=0 to 9 do
for b:=0 to 9 do
writeln(a,'+',b,'=',a+b);

Даны 15 чисел, определите номер изначального числа квадрат которого максимален.

readln(m);N=1;
for i:=2 to 15 do
begin
readln(a);
if a*a>m*m then begin m:=a;n:=i;end;
end;
writeln(n);

[Naive]

ну, судя по нику, зато армия вам не грозит)

[Poma][a]

if a*a>m*m then

Как бы нам на больших числах переполнение не получить..
Предлагаю делать так :

if Abs(a) > Abs(m) then

[КсенияСергеева]

№2 выислить квадратный корень из произведения m положительных чисел.
Все числа и число m вводиться с клавиатуры.
№3 Найти все трёхзначные числа, которые в 7 раз больше суммы папарных произведений своих цифр.
№4 Установите, можно ли заданное натуральное число М представить в виде суммы квадратов двух последовательных натуральных чисел.

помогите)

[type_Oleg]

К №4

uses Math;
        //  ...
function MojnoLiPredstVVide(M:Integer):Boolean;
var t:Integer;
begin
 t:=Floor(Sqrt((M-1)/2));
 Result:=M=t*t+(t+1)*(t+1);
end;

Ну и вызываете ее, где надо.

PS Если 0 тоже считать натуральным. 0^2+1^2 = 1.