«alt+[shift]+tab» — переключение между окнами; «alt+f4» — закрыть активное окно; «alt+space (пробел)» — открытие системного меню окна. с него можно закрывать, сворачивать, разворачивать, перемещать и изменять размер окна без мыши; «alt+shift» или «ctrl+shift» — переключить язык; «ctrl+alt+delete» — открытие окна «безопасность windows»; «win» — открытие/закрытие меню «пуск»; «ctrl+esc» — открытие/закрытие меню «пуск»; «win+d» — свернуть/восстановить все окна, включая диалоговые; «win+e» — открытие программы «проводник»; «win+r» — открытие окна «запуск программы» («пуск» --> «выполнить…»); «win+f» — открытие окна для поиска; «win+l» — заблокировать компьютер; «win+m» — сворачивает все окна, кроме диалоговых; «win+pause/break» — открытие окна «система»; «ctrl+shift+esc» — открытие окна «диспетчер »; «print screen» — поместить снимок всего экрана в буфер обмена. в ms-dos использовалась для вывода на принтер содержимого экрана; «alt+print screen» — поместить снимок активного окна в буфер обмена;
Ответ дал: Гость
а)
var
p,d,h: real;
begin
readln(h);
p: =1200*9.8*h;
writeln(p);
end.
б)
var
m,h,r: real;
begin
readln(h);
readln(r);
m: =1200*3.14*h*r*r;
writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
var
i,k: integer;
m,h,r,s: real;
begin
readln(k);
s: =0;
for i: =1 to k do
begin
readln(h);
readln(r);
m: =1200*3.14*h*r*r;
s: =s+m;
end;
writeln(s);
end.
Ответ дал: Гость
1)
var
a: array [1..5,1..10] of integer;
i,j,p: integer;
begin
for i: =1 to 5 do
begin
for j: =1 to 10 do
begin
a[i,j]: =random(50)+1;
write(a[i,j]: 3);
end;
writeln;
end;
writeln('меняем 1 и последнюю строки');
for j: =1 to 10 do
begin
p: =a[1,j];
a[1,j]: =a[5,j];
a[5,j]: =p;
end;
for i: =1 to 5 do
begin
for j: =1 to 10 do
write(a[i,j]: 3);
writeln;
end;
end.
2)
var a: array [1..5, 1..10] of integer; i, j: integer; p: real;
begin for i : = 1 to 5 do begin for j : = 1 to 10 do begin a[i, j] : = random(50) + 1; write(a[i, j]: 3); end; writeln; end; writeln('произведения элементов строк'); for i : = 1 to 5 do begin p : = 1; for j : = 1 to 10 do p : = p * a[i, j]; writeln(p: 25: 0); end; end.
Ответ дал: Гость
var n: integer;
procedure down(var n: integer); var a: array[1..20] of integer; i, j, s, p: integer; begin i : = 0; while n > 0 do begin i : = i + 1; a[i] : = n mod 10; n : = n div 10; end; p : = i; for i : = 1 to p - 1 do for j : = i + 1 to p do if a[i] < a[j] then begin s : = a[i]; a[i] : = a[j]; a[j] : = s; end; j : = 1; for i : = p downto 1 do begin s : = s + a[i] * j; j : = j * 10; end; n : = s; end;
Популярные вопросы