Памагитее Универсальное техническое устройство для работы с информацией 2. Устройство вывода информации для воспроизведения звука на площадках и в больших аудиториях считывания 3. Электронное оптическое устройство ввода информации для изображения и сохранения его в памяти компьютера 4. Универсальное устройство вывода текстовой и графической информации на экран 5. Устройство вывода информации для персонального прослушивания музыки, речи или иных звуковых сигналов 6. Устройство вывода информации, прибор с системой линз, используемый для проецирования на экран изображений с освещенных плоских объектов
1. Устройство, позволяющее пользователю вводить информацию в компьютер 2. Электронное устройство ввода-вывода информации для отправления и получения компьютерных сигналов через систему телефонной связи 3. Устройство ввода информации, манипулятор, который позволяет указывать на различные объекты на экране компьютера и проводить с ними необходимые действия. часть 4. Центральная компьютера, Выполняющая заданные программой преобразования информации и осуществляющая управление всем вычислительным процессом. 5. Устройство ввода информации в персональный компьютер, которое представляет собой качающуюся в двух плоскостях вертикальную ручку и пользователю управлять персонажем или машиной в компьютерной игре. позволяет 6. Устройство вывода цифровой информации на твёрдый носитель, обычно на бумагу 7. Прибор, позволяющий настроить домашнюю сеть из нескольких ноутбуков, планшетов и прочих смартфонов 8. Прибор, преобразующий звуковые колебания в электрические для передачи звуков на расстояние.
Код для примитивной "рисовалки", рисуете что хотите. Для сохранения на рабочий стол нажимаете клавишу "Enter"
// PascalABC.NET // Версия 3.3.5 сборка 1662 (29.04.2018)
uses GraphABC;
begin Window.Title := 'Рисование мышью(Enter - сохранить на раб. стол)'; Pen.Color := Color.Red; Pen.Width := 3; OnMouseDown := (x,y,mb) -> MoveTo(x,y); OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y); var a:=System.Security.Principal.WindowsIdentity.GetCurrent.Name; OnKeyDown:=k->if k=13 then begin SaveWindow('C:\Users\'+copy(a,pos('\',a)+1,a.Length-pos('\',a)+1)+'\Desktop\image.png'); Window.Close; end; end.
Паскаль --- uses crt; var a: array[1..100,1..100] of integer; x,y,sum,k,n:integer; begin write('Введите n: '); readln(n); clrscr; for x:=1 to n do begin for y:=1 to n do begin a[x,y]:=random(21)-10; write(a[x,y]:4); end; writeln; end; k:=0; Sum:=0; for x:=1 to n do for y:=x+1 to n do if a[x,y]>0 then begin Sum:=Sum+a[x,y]; inc(k); end; writeln; if k<>0 then write(sum/k:4:2); end.
// PascalABC.NET
// Версия 3.3.5 сборка 1662 (29.04.2018)
uses GraphABC;
begin
Window.Title := 'Рисование мышью(Enter - сохранить на раб. стол)';
Pen.Color := Color.Red;
Pen.Width := 3;
OnMouseDown := (x,y,mb) -> MoveTo(x,y);
OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y);
var a:=System.Security.Principal.WindowsIdentity.GetCurrent.Name;
OnKeyDown:=k->if k=13 then begin
SaveWindow('C:\Users\'+copy(a,pos('\',a)+1,a.Length-pos('\',a)+1)+'\Desktop\image.png'); Window.Close; end;
end.
---
uses crt;
var a: array[1..100,1..100] of integer;
x,y,sum,k,n:integer;
begin
write('Введите n: ');
readln(n);
clrscr;
for x:=1 to n do begin
for y:=1 to n do begin
a[x,y]:=random(21)-10;
write(a[x,y]:4);
end;
writeln;
end;
k:=0;
Sum:=0;
for x:=1 to n do
for y:=x+1 to n do
if a[x,y]>0 then begin
Sum:=Sum+a[x,y];
inc(k);
end;
writeln;
if k<>0 then write(sum/k:4:2);
end.