varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.
Ответ дал: Гость
во всех областях деятельности холодильных предприятий как в обработке и хранении, так и в производстве продукции основной является своевременное и равномерное выполнение и перевыполнение государственных плановых по всем показателям. при этом одним из главных показателей работы холодильников служит сохранение высокого качества продукции. [6]
Ответ дал: Гость
1)
var
i,n: integer;
begin
readln(n);
for i: =1 to n do writeln(i*i);
end.
2)
var
i,n: integer;
begin
readln(n);
for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);
end.
3)
var i,n: integer; p: real;
begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.
4)
var
i,n: integer;
begin
readln(n);
for i: =1 to n do if (i mod 2=0) then writeln(i);
end.
5)
var
i,n,k: integer;
begin
readln(n);
k: =0;
for i: =1 to n do if (i mod 15=0) then k: =k+1;
writeln(k);
end.
Ответ дал: Гость
2 = 2^1
8 = 2^3
это значит, что в двоичной системе определяющим является 1 цифра, а в 8-ричной - 3 цифры; разбиваем 2-ичную сис на группы по три числа, и переводим их в другую систему. например в первом будут группы чисел 100, 010, 010, 110; (разбивается с конца, исключаем возможность ошибки) 100 это 4 и т д..
Популярные вопросы