1. Камень
2.
3. Диатес
4. Бумага
5.
6. Винчестер
остальное подумаю еще
10101001(2) = 331(7) = 169(10) = A9(16)
1000101(2) = 126(7) = 69(10) = 45(16)
10010001(2) = 265(7) = 145(10) = 91(16)
10000101011(2) = 3000(7) = 1067(10) = 42B(16)
#1
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := ((x + y - z)/(x*x + 2));
writeln(a);
end.
#2
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := 5*((2*x-z)/(3+y*y));
writeln(a);
end.
#3
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := (1 + z)*((x+(y/x*x+4))/(2+(1/(x*x+4))));
writeln(a);
end.
#2.1
const pi = 3.14;
var
l,s,r : real;
begin
readln(r);
l := 2 * pi * r;
s := pi * r * r;
writeln(l);
writeln(s);
end.
#2.2
var
x : real;
begin
readln(x);
writeln((180 - x)/2);
end.
Прикладное ПО:
Текстовые редакторы
Электронные таблицы
Компьютерные игры
Видеоплееры
Любые графические редакторы.
Var T:string;
k:integer;
s,c:char;
begin
Writeln('Введите строку');
Readln(T);
Writeln('Введите буквы s и c');
Readln(c);
While not(Pos(s,T)=0) do
begin
k:=Pos(s,T);
T[k]:=c;
end;
Writeln('Изменённая строка - ',T);
end.