Регистрация
anisiloppoosa
23.09.2020 08:42
Информатика
Есть ответ 👍

Дано шестизначное яисло.найти число,полученное перестановкой 1-ой и 2-ой цифр,3-ей и 4-ой цифр,5-ой и 6-ой цифр.

285
323
Посмотреть ответы 2

Ответы на вопрос:

Milalenka1
Milalenka1
4,4(16 оценок)
Var a,a1,a2,a3,a4,a5,a6,b: integer; begin write('a = '); readln(a); a1: =a div 100000; a2: =a div 10000 mod 10; a3: =a mod 10000 div 1000; a4: =a mod 1000 div 100; a5: =a mod 100 div 10; a6: =a mod 10; b: =a2*100000+a1*10000+a4*1000+a3*100+a6*10+a5; writeln('b = ',b); end. пример: a = 123456 b = 214365
Св55
Св55
4,5(31 оценок)

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

Популярно: Информатика