Фамилия
Имя
Город проживания
Регистрационный номер авто
Номер дома!
Var n,k,m: integer;
begin
write('число: '); readln(n);
m:=1;
k:=trunc(log2(n));
if (k mod 2)=1 then m:=m shl (k-1)
else m:=m shl k;
repeat
write(m,' ');
m:=m shr 2;
until m<2;
<span>end.
</span>
Простота и освоения системы
скорость достижения результатов
удовлетворенность при эксплутации
Begin
var a := ReadArrInteger('Первый массив: ',10);
var b := ReadArrInteger('Второй массив: ',10);
write('Наибольшее число в');
if a.Max > b.Max then write(' первом')
else write('о втором');
writeln(' массиве.');
end.
using System;
namespace ConsoleApp7
{
class Program
{
static void Main(string[] args)
{
long b = 1;
Console.Write("Введите а: ");
long a = Convert.ToInt32(Console.ReadLine());
a = a * a;
b = a * a;
b = b * b;
Console.WriteLine("a^8 = " + b);
b = (b * a);
Console.WriteLine("a^10 = " + b);
Console.Read();
}
}
}