1-й шаг - a = 7; 2-й - b = 8; 3-й - a = 15.
Ответ:
program xxxxx;
uses crt;
var
i,c:integer;
f:text;
st,r,c2,c1:string;
begin
readln(c);
assign(f,'mylti.txt');
rewrite(f);
for i:=1 to 10 do
begin
str(i,c1);
str(c,c2);
str(i*c,r);
st:= c2 + ' * ' + c1 + ' = ' + r;
writeln(f,st);
end;
close(f);
end.
Объяснение:
var x0, y0, r0, x1, x2:real;
begin
readln(x0,y0,r0);
// уравнение окружности: (x-x0)^2+(y-y0)^2=r0^2
if r0*r0-y0*y0>=0 then
begin
x1:=-sqrt(r0*r0-y0*y0)+x0;
x2:=sqrt(r0*r0-y0*y0)+x0;
writeln('Точки пересечения: x1 = ',x1:4:2,' x2 = ',x2:4:2);
end
else writeln('Не пересекается');
end.
Пример:
1 1 2
Точки пересечения: x1 = -0.73 x2 = 2.73
Результат вычисления выражения = 43046746
В 3-ричной системе = 10000000000000221
Кол-во цифр 2 = 2
9^8 + 3^3 - 2 = <span>3^16 + 3^3 - 3^1 + 1
</span>3^16 (3) = 10000000000000000 => нет 2
3^3 - 3^1 (3) = 1000 - 10 = 220 => 2 двойки
+1 => не дает двоек
Ответ 2
program z1;
uses crt;
var n,m,i:integer;
begin
repeat
writeln('Введите числа');
readln(n,m);
until n<m;
for i:=n to m do
begin
if i mod 2 =0 then write(i:4);
end;
end.