2*1024 = x*128 => x = 2048/128 = 16
Program n1;
var n: integer;
begin
readln(n);
if n<>0 then
begin
if n<0 then writeln(n*n) else writeln(n*n*n);
end;
end.
Программа для паскаля
program treug;
var a,b,c: integer;
begin
write (' Введите длины сторон ');
readln (a,b,c);
if (a < b+c) and (b < a+c) and (c < a+b) then
writeln (' Треугольник существует')
else writeln (' Треугольник не существует ');
end.
Пусть десятичнная запись числа - это х, тогда по первому условию:
х=2*(р-1)+3,
по второму условию:
х=(р+1)*1+6
приравниваем и вычисляем р:
2(р-1)+3=р+1+6
2р-р=7-3+2
р=6
отсюда х=6+1+6=13
ответ: десятичная записи - это 13.
Сначала массив из 40 элементов заполняется случайными числами.
Затем элементы массива меняются местами, т. е. 1-й элемент становится 40-м, а 40-й - первым, второй - 39-м и наоборот.
Иными словами, массив переворачивается.