===== PascalABC.NET =====
begin
var a := ArrRandom(30, 2, 5);
a.Println.Count(p -> p > 3).Println
end.
Program gt;
var a,b,c,d:integer;
begin
read(a,b,c,d);
if(a=b)then writeln('ПРЯМОУГОЛЬНИК ПОД НОМЕРОМ 1 ЯВ.. КВАДратом');
if(c=d)then writeln('ПРЯМОУГОЛЬНИК ПОД НОМЕРОМ 2 ЯВ.. КВАДратом');
if((a<=c)and(b<=d))or ((a<=d)and(b<=c)) or((a>=c)and(b>=d)) or((a>=d)and(b>=c))then writeln('ДА')else writeln('НЕТ');
end.
Сведения о системе;
2) средства диагностики компьютера
3) программа дефрагментации диска
4) средства коммуникации (коммуникационные программы)
5) диспетчеры файлов (файловые менеджеры)
6) средства сжатия данных (архиваторы)
7) антивирусные программы
8) средства обеспечения компьютерной безопасности
Дан АВСД-прямоуг. АВ=А; ВС=А-В
1)ВС=20-5=15
S=AB*BC=20*15=300
P=2AB+2BC=2*20+2*15=40+30=70
2) BC=12-3=9
S=12*9=108
P=2*12+2*9=24+18=42
120
То есть там прибавляешь разницу между двумя прошлыми и прошлым и этим числом, короче говоря ответ 120