Пожаловаться
- 05.02.2018 08:16
- Информатика
- remove_red_eye 15675
- thumb_up 44
Ответы и объяснения 1
Var
A,B,X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
Write('A = ');Read(A);
Write('B = ');Read(B);
if ((A
End.
Var
A,B,C:real;
Begin
Write('A = ');Read(A);
Write('B = ');Read(B);
if A>B then
Begin
C:=(A+B)/2;
B:=2*A*B;
A:=C;
End
else
Begin
C:=(A+B)/2;
A:=2*A*B;
B:=C;
End;
WriteLn('A = ',A);
WriteLn('B = ',B);
End.
Var X0,Y0,X1,Y1:byte;
Begin
Write('X0 = ');
Read(X0);
Write('Y0 = ');
Read(Y0);
Write('X1 = ');
Read(X1);
Write('Y1 = ');
Read(Y1);
if (((abs(X0-X1)=1)and(abs(Y0-Y1)=2))or((abs(X0-X1)=2)and(abs(Y0-Y1)=1))) then Write('Может')
else Write('Не может')
End.
A,B,X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
Write('A = ');Read(A);
Write('B = ');Read(B);
if ((A
End.
Var
A,B,C:real;
Begin
Write('A = ');Read(A);
Write('B = ');Read(B);
if A>B then
Begin
C:=(A+B)/2;
B:=2*A*B;
A:=C;
End
else
Begin
C:=(A+B)/2;
A:=2*A*B;
B:=C;
End;
WriteLn('A = ',A);
WriteLn('B = ',B);
End.
Var X0,Y0,X1,Y1:byte;
Begin
Write('X0 = ');
Read(X0);
Write('Y0 = ');
Read(Y0);
Write('X1 = ');
Read(X1);
Write('Y1 = ');
Read(Y1);
if (((abs(X0-X1)=1)and(abs(Y0-Y1)=2))or((abs(X0-X1)=2)and(abs(Y0-Y1)=1))) then Write('Может')
else Write('Не может')
End.
Пожаловаться
- 06.02.2018 15:50
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы