39
Язык - Ruby
def numbers_sum(n)
n = n.to_s.chars
sum = 0
n.each do |c|
sum += c.to_i()
end
return sum
end
k=0
for i in 1..1000
if numbers_sum(i.to_s(10)) == numbers_sum(i.to_s(3))
k+=1
end
end
p k
Так как Вы не уточнили какой Вы хотите что б был вывод на екран, то я буду выводить число а, б или с. (Писал на паскале ABC)
код программы на паскале:
<span>var</span> a<span>,</span>b<span>,</span>c<span>:</span><span>real</span>;
<span>begin</span><span>writeln</span><span>(</span><span>'Введите a'</span><span>)</span>;
<span>readln</span><span>(</span>a<span>)</span>; <span>writeln</span><span>(</span><span>'Введите b'</span><span>)</span>;
<span>readln</span><span>(</span>b<span>)</span>;
<span>writeln</span><span>(</span><span>'Введите c'</span><span>)</span>;
<span>readln</span><span>(</span>c<span>)</span>;
<span>if</span><span>(</span>a>b<span>)</span><span>and</span><span>(</span>a>c<span>)</span><span>then</span><span>writeln</span><span>(</span><span>'a - наибольшее число'</span><span>)</span><span>else</span><span>if</span><span>(</span>b>a<span>)</span><span>and</span><span>(</span>a>c<span>)</span><span>then</span><span>writeln</span><span>(</span><span>'b - наибольшее число'</span><span>)</span><span>else</span><span>writeln</span><span>(</span><span>'c - наибольшее число'</span><span>)</span>;
<span>readln</span>;
<span>end</span>.
Рад был помочь) Пишите)
1. Из двоичной в десятичную
1) 17
2) 61
3) 379
4) 1882
5) 2906
2. Из десятичной в двоичную
1) 11110
2) 1100001
3) 1111100
4) 1011110110
5) 10101000111
begin
var (n, m) := ReadlnInteger2;
var (sm, tm):= ('', integer.MaxValue);
for var i := 1 to n do
begin
var s := ReadlnString;
var t := ReadSeqInteger(m).Sum;
ReadlnString;
if t < tm then
(sm, tm) := (s, t)
end;
Write(sm)
end.
<u>Замечание.</u> Строки могут содержать любые символы., а не только латинские буквы.
Var
x, y, z : real;
begin
read (x, y, z);
if (x > 0) then x := sqr (x);
if (y > 0) then y := sqr (y);
if (z > 0) then z := sqr (z);
write (x, ' ', y, ' ', z);
end.