1.какие бывают принтеры? 2.укажите лазерные(оптические) диски 3.от чего зависит быстрота работы компьютера? 4.в чем измеряется тактовая частота процессора?
//Сделал Лугачев Кирилл //Специально для //Все данные вводятся с клавиатуры program Sravnenie; var a, b: integer; // Стороны 1-ого прямоугольника d, c: integer;// Стороны 2-ого прямоугольника S1, S2: integer; // Площадь buf: integer;// Если площадь 1-ого будет меньше 2-ого //поменяем местами,что бы избавиться от минуса razn: integer; // Разница 2-ух площадей
begin Write('Введите стороны 1-ого прямоугольника: '); Readln(a, b);
Write('Введите стороны 2-ого прямоугольника: '); Readln(d, c); S1 := a * b; //Площадь 1-ого S2 := d * c; //Площадь 2-ого if S1 < S2 then begin buf := S1; S1 := S2; S2 := buf; end; razn := S1 - S2; Writeln('Площадь 1-ого больше площади 2-ого в - ',razn, ' раз'); end.
Const n=10;m=7; var a:array[1..n,1..m]of integer; flag,i,j,b:integer; begin for i:=1 to n do begin writeln; for j:=1 to m do begin a[i,j]:=random(312)-111; write(a[i,j]:4); end; end; writeln; Writeln('B ?'); readln(b); for i:=1 to n do for j:=1 to m do if a[i,j]=b then flag:=1; if flag=1 then writeln('Yes') else writeln('N'); end.
вариант 2 const n=10;m=7; var a:array[1..n,1..m]of integer; k,i,j,b:integer; begin for i:=1 to n do begin writeln; for j:=1 to m do begin a[i,j]:=random(312)-111; write(a[i,j]:4); end; end; writeln; Writeln('B ?'); readln(b); for i:=1 to n do for j:=1 to m do if a[i,j]=b then k:=k+1; if k<>0 then writeln('Yes') else writeln('N'); end.
1. Лазерные и струйные.
2. CD - диски!?
3. От количества оперативной памяти и ядров.
4. Гигагерцы