Program pr;
uses crt;
Var a, b, c, y:real;
Begin
Writeln('Введите a, b, c');
readln(a, b, c);
y:=exp(3*ln(b))+sqrt(c)-sqrt(a);
Writeln('y=', y);
readln;
end.
Program gt;
var n,i,p:integer;
begin
read(N);
p:=1;
for i:=2 to n do
begin
p:=p*i;
end;
write(p);
end.
3)
program gt;
var s:integer;
begin
for i:=5 to 100 do
begin
if(i mod 6=0)then s:=s+i;
end;
writeln(s);
end.
2)
program gtr;
var i,n:integer;
p,a:real;
begin
reaD(n);
p:=0;
for i:=1 to n do
begin
read(a);
p:=p+1/a;
end;
p:=n/p;
write(p);
end.
1)
Л -> b
е -> a
ш -> c
a -> не определена
2) Е - здесь pred - предыдущий символ, succ - последующий символ
3) 67 - здесь код латинской заглавной буквы F равен 70, поэтому:
pred(70-2) = pred (68) = 67
Правильно (Б), не благодари
Вычислитель
делопроизводитель
бухгалтер
библиотекарь
модельер
дизайнер
архитектор
мультипликатор