Ctrl+Tab-переключение между закладками или окнами одного приложения
Ctrl+Shift-переключить язык
Ctrl+Alt+Delete-открытие окна "Диспетчер задач" или "Безопасность Windows"
Ctrl+Shift+Esc-открытие окна "Диспетчер задач"
Ctrl+Esc-открытие/закрытие меню "Пуск"
Ctrl+C-копировать в буфер обмена
Ctrl+Insert-копировать в буфер обмена
Ctrl+V-вставить из буфера обмена
Ctrl+X-вырезать в буфер обмена
Ctrl+Z-отменить (назад)
Ctrl+Y-отменить (вперёд)
Ctrl+A-выделить всё
Ctrl+S-сохранить
Ctrl+W-закрыть текущую вкладку окна
Ctrl+R-обновить
Ctrl+Backspace-удалить слово (удаляет влево)
Ctrl+Delete-удалить слово (удаляет вправо)
Ctrl+Home (End)-переместить курсор в начало (конец) текста
Ctrl+Shift+Пробел-в Word: Неразрывный пробел
Ctrl+Shift+Дефис-в Word: Неразрывный дефис
Ctrl+Enter-в Word: Разрыв страницы
Ctrl+P-печать документа
Program n1;
var i: integer;
begin
for i:=111 to 981 do if ( i mod 3=0) and (i mod 10=1) then write(i,' ');
end.
Program asd;
Var A,B:array [1..250,1..250] of integer;
i,j,n,m,k: integer;
BEGIN
Write('Введите n: '); Readln(n);
Write('Введите m: '); Readln(m);
for i:= 1 to n do
begin
for j:= 1 to m do
begin
A[i,j]:=random(10);
write(A[i,j]:3);
end;
writeln;
end;
writeln;
for i:= 1 to n do
for j:= 1 to m do
begin
If A[i,j] mod 2=1 then inc(k);
end;
If n=m then
begin
Writeln('Транспонирование: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(A[j,i]:3);
B[i,j]:=A[i,j];
end;
writeln;
end; writeln;
end
else
Writeln('Кол-во нечетных элементов: ',k);
<span>END.</span>
Вообще есть способ сразу их сложить, но он крайне сложный потому дабы особо не мучаться, переводим все в десятичную систему 56.74(8) = 46.9375(10), 123.54(16) = 291.328125(10) сложив эти числа получаем =338.265625(10) и последнее что делаем переводим в семиричную 662.16(00523416) часть в скобке это период, число далее тупо повторяется, хотя думаю округлить разрешат до сотых, решал с помощью калькулятора технического, на большинстве есть возможность перевода из одной системы счисления в другую, если знать куда нажимать