Предмет:
ИнформатикаАвтор:
анонимДля вычисления можно составить программу на Pascal:
var n, n12, n34, i, j, x: integer;
begin
for n := 1000 to 999 do begin
n12 := (n div 1000) + (n div 100 mod 10);
n34 := (n div 10 mod 10) + (n mod 10);
i:=1;
while (n34 div 10)>0 do begin
i := i + 1;
n34 := n34 div 10;
end;
for j := 1 to i do
n12 := n12 * 10;
if n12 + n34 = 1915 then x := x + 1 else if n12 + n34 = 10 then x := x + 1 else
if n12 + n34 = 110 then x := x + 1 else if n12 + n34 = 1516 then x := x + 1 else
if n12 + n34 = 1211 then x := x + 1 else if n12 + n34 = 316 then x := x + 1 else
if n12 + n34 = 1519 then x := x + 1 else if n12 + n34 = 116 then x := x + 1 else
if n12 + n34 = 1515 then x := x + 1;
end;
writeln(x);
end.
Ответ (с выхода программы): 4.
Автор:
jamisonmontoyaДобавить свой ответ
Предмет:
ЛитератураАвтор:
анонимОтветов:
Смотреть
Предмет:
ЛитератураАвтор:
анонимОтветов:
Смотреть
Предмет:
ЛитератураАвтор:
анонимОтветов:
Смотреть
Предмет:
ЛитератураАвтор:
анонимОтветов:
Смотреть