Ответ на первую
var
i,m,b:integer;
a:array[1..15] of integer;
begin
for i:=1 to 15 do
a[i]:=random(100)+1;
repeat
for i:=1 to 14 do
if a[i]<a[i+1] then begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
end;
inc(m);
until m=14;
for i:=1 to 15 do
if a[i] mod 2 = 0 then
write(a[i],' ');
end.
a = list(map(int, input.split()))
for i in range(len(a)):
a[i] = abs(a[i])
m = max(a)
a.pop(a.index(m))
n = max(a)
print(min(m, n), max(m, n))
Принцип решения в том, чтобы убрать все минусы у чисел, взять максимум, сохранить его и удалить из списка, а затем взять ещё один максимум, потом вывести числа в порядке неубывания.
#include <iostream.h>
#include <math.h>
void main()
{
float x;
float a,d,c,k;
cout<<"Vvedit a ";
cin>>a;
cout<<"Vvedit d ";
cin>>d;
cout<<"Vvedit c ";
cin>>c;
cout<<"Vvedit k ";
cin>>k;
x=(a+(d-12)*3)*(c-5*k);
cout<<"x = "<<x;
}
програма написана на мові програмування с++
Пуск-Панель управления-Мышь- Свойства я думаю так
<span>Свойства комьпютера: Версия виндоус, система, сведения об активации, оборудование, быстродействие и т.д., Мои документы: тип, размещение, размер, размещение конечной папки....Рабочий стол: заставка, темы, оформление, цветовые схемы, разрешение... Др. обьектов: в основном размещение и размер, дата последнего изменения.</span>