Var
n:Integer;
Begin
Writeln('Введите в градусах Цельсия');
Read(n);
Writeln('В Фаренгейтах это = ',(n*9/5)+32:0:1);
end.
Ответ: С) корень должен вычисляется из всего выражения. sqrt() - функция вычисления корня
Program primer;
Var i,n,k,chislo:integer;
Begin
cls;
write(' skolko chisel budem vvodit ? '); readln(n);
write('chislo dlia poiska : '); read(k);
for i:=1 to n do
begin
readln(chislo);
if ((chislo mod 10 = k) or (chislo div 10 = k)) then
write('chislo ',chislo,' udov uslovie.. ')
else write('chislo ',chislo,' NE udov uslovie.. ');
writeln;
end;
readln;
End.
D = (x1^2 + x2^2)^(1/2)
Q = I^2 * R
J = 2 * pi * R
S = v0 * t + a * t^2 / 2
R = 1 / (1 / R1 + 1 / R2)
ИЛИ
D = (x1*x1 + x2*x2)^(1/2)
Q = I*I * R
J = 2 * pi * R
S = v0 * t + a * t*t / 2
R = 1 / (1 / R1 + 1 / R2)