3* на 10 в минус первой степени + 8* на 10 в минус второй степени + 5* на 10 в минус третьей степени.
Не могу с телефона степени указать, написала словами
Мне кажется б) потому что им надо узнать ответ. Задавая вопросы
<em>var a, b, c, d, i, n :integer;</em>
<em>procedure swap (a, b :integer; c, d :integer);</em>
<em>begin</em>
<em> if a>b then begin c:=a; d:=a; end </em>
<em> else begin c:=b; d:=a; end;</em>
<em>end;</em>
<em>begin</em>
<em> read (a, b);</em>
<em> swap(a, b, a, b);</em>
<em> for i:=1 to a do if (a mod i=0) and (b mod i=0) then c:=i;</em>
<em> write (a*b/c);</em>
<span><em>end.</em></span>
Ответ:На Паскале
Код:
var
a,b,c, d:integer;
begin
writeln('введите числа');
readln(a,b,c);
if (a<=b) and (a<=c) then writeln(a);
if (b<=a) and (b<=c) then writeln(b);
if (c<=a) and (c<=b) then writeln(c)
else writeln(d)
end.
Вроде так, в некоторых версиях может выдавать ошибку, лучше составить код без ограничений действий
Var A:byte;
Begin
For A:= 1 to 15 do
WriteLn(A,' * 2 = ',A*2);
End.