востановите рисунок по описанию установить 20,80 линия к 65,110 линия к 110,80 линия к 20,80 прямоугольник 20,20,110,10 прямоугольник 30,80,40,30, прямоугольник 50,80,80,30 прямоугольник 70,80,80,30 прямоугольник 90,80,100,30 УМОЛЯЮ ВРЕМЕНИ МАЛО ОЧЕНЬ!!
По размерам:
1. Стационарные ПК
Предназначены для постоянного использования внутри помещения. Устанавливаются на широких ровных поверхностях, таких, как офисные столы, специальные полки и др. Включают в себя такие подвиды как: десктопы (обычные настольные ПК), неттопы и моноблоки.
2. Портативные ПК
Переносные решения разной степени мобильности и автономности. Существенно различаются по размерам. Ориентировочный порядок возрастания габаритов: КПК (карманные компьютеры), планшеты, планшетные нетбуки, нетбуки, ноутбуки.
3. Серверы — специализированный компьютер и/или специализированное оборудование для выполнения на нём сервисного программного обеспечения.
4. Суперкомпьютеры — это большое количество высокопроизводительных серверных компьютеров, соединенных друг с другом локальной высокоскоростной магистралью для достижения максимальной производительности в рамках подхода распараллеливания вычислительного задачи.
По применения:
1. Персональные компьютеры (ПК);
2. Рабочие станции;
3. Серверы;
4. Специализированные компьютеры.
1)
Program p1;
Var a,b,c,z: real;
Begin
Write('Введите 1 число ');
readln(a);
Write('Введите 2 число ');
readln(b);
z:=frac(a);
c:=frac(b);
if (a > 99) and (z = 0) then Writeln(a);
if (b > 99) and (c = 0) then Writeln(b);
End.
*функция frac() берет от вещественного числа дробную часть
2)
Program p1;
Var a, i, n, k: integer;
Begin
Write('Введите количество чисел последовательности: ');
readln(n);
k:=1;
For i:=1 to n do begin
readln (a);
if (a mod 3 =0) then k:=k*a*a;
end;
Writeln('Произведение квадратов чисел, кратных трём - ',k);
End.