Mikhailovna_Litvinova276
?>

Составьте программу, заменяющую меньшее из двух данных чисел их суммой, а большее - удвоенным произведением этих чисел.

Информатика

Ответы

Gennadevna_Baidalina131
2014-04-06T04:57:38+00:00
Program pf;
var x,y,a,b:integer;
begin
read(x);
read(y);
a:=x; b:=y;
if x>y then begin x:=a*b; y:=a+b; end else begin x:=a+b; y:=a*b; end;
write(x,y);
end.
aromastil88
Program Task;
Const N = 499; M = 1;
Var A: Array [1..N, 1..N] of Boolean;
i, j, x, y, t: Integer;
b: Boolean;
Begin
Randomize;
While i < M Do
Begin
x := Random(N) + 1;
y := Random(N) + 1;
If A[x, y] = False Then
Begin
A[x, y] := True;
i := i + 1;
End;
End;
While b = False Do
Begin
b := True;
For i := 1 To N Do
For j := 1 To N Do
Begin
If A[i, j] = True Then
Begin
If (i + 1) <= N Then
A[i + 1, j] := True;
If (i - 1) > 0 Then
A[i - 1, j] := True;
If(j + 1) <= N Then
A[i, j + 1] := True;
If (j -1) > 0 Then
A[i, j - 1] := True;
End;
End;
For i := 1 To N Do
For j := 1 To N Do
If A[i, j] = False Then
b := False;
t := t + 1;
End;
WriteLn(t);
ReadLn;
End.
anitanemtsewa

Поскольку числа записаны в порядке убывания, одна сумма цифр двух разрядов равна 13, другая — 11. Чтобы число было наименьшим, необходимо, чтобы в старших разрядах находилась как можно меньшая цифра, следовательно сумма старших разрядов должна быть меньшей. При разложении 11 на слагаемые необходимо, чтобы одно из них было минимально возможным, поэтому представим 11 как сумму 2 и 9, это — первые две цифры искомого числа. Вторые две цифры получатся разложением числа 13 на слагаемые: 4 и 9. Следовательно, ответ 2949.

ответ: 2949.

Вот и все!

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Составьте программу, заменяющую меньшее из двух данных чисел их суммой, а большее - удвоенным произведением этих чисел.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Ulianev77
arevik2307
ccc712835
galichka12
office46
Mexx9050
Никита227
purbuevat56524
Elvira-Natalya
chuev4444
Gesper63
mustaev
superniki87
Никита
SEMENOV25352