var
a,h,s: integer;
begin
writeln('введите основание ');
readln(a);
writeln('введите высоту треугольника') ;
readln(h);
S:=(1/2)*(a*h);
writeln('площадь равна ',s);
end.
Ответ:
1)Программы устанавливаются чтобы человек мог взаимдействовать с компютерной средой удобным ему языком, а программы просто переводят все его действия в понятний компютерный язык.
2) Драйверы устанавливаются чтобы разнородные компоненты могли идентифицировать друг друга
3) Windows потому что ее особеностю была возможность переключаться между окнами графического пользовательского интерфейса
4) С которым юзер работает на повседневной основу, финансовые и тп действия
5) Чтобы виполнять базовые функции - калькулятор, блокнот и тд
Объяснение:
Var
i, min, n, d: integer;
begin
readln(n);
min:=30000;
for i := 1 to n do
begin
readln(d);
if (d mod 2 = 0) and (min>d) then
min:=d
end;
writeln(min);
end.
12=1100
523=1000001011
76=1001100
221=11011101
можно изменить регистр символов, изменить атрибуты (жирный, курсив, подчеркнутый, зачеркнутый и т. д.) , изменить кегль шрифта (10,12,14 и т. д.) , тип шрифта (Таймс, Тахома, Ариал и т. д. ) ну и т. д.