Var a:array[1..3] of integer;
i:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
readln(a[i]);
for i:=1 to 3 do
if a[i]>0 then writeln(sqr(a[i]));
readln;
<span>end.</span>
Вообще, что бы делилось на 7, они должны быть такими: 123027; 12467; 60037; 53067.
1) По поводу вопроса изменения при копировании в ячейку:
При относительных ссылках, значение подкорректируется,
<span>при абсолютных (ставится знак доллара перед адресом ячейки) останется как было, а при смешанных наверно там где относительная ссылка, то подкорректируется, а там где абсолютная - то останется тот же адрес.
</span>2-3) <span>В работе с электронными таблицами можно выделить три основных типа данных: числа, текст и формулы.
Это кратко и по сути.
Если нужно подробнее - обращайся)</span>
Console.WriteLine("Введите сторону a );
double a = Convert.ToDouble(Console.ReadLine());
Console.WriteLine("Введите сторону b );
<span>double b = Convert.ToDouble(Console.ReadLine());
</span>Console.WriteLine("Введите сторону c );
<span>double c = Convert.ToDouble(Console.ReadLine());
</span>a = Math.Round(a, 2);
<span>b = Math.Round(a, 2);
</span><span>c = Math.Round(a, 2);
</span>
double Plos = 0,5 * a * b * c;
Console.WriteLine("Площадь = " + Math.Round(Plos, 2));