Делим на 2, записываем остатки
307 | 153 ост 1
153 | 76 ост 1
76 | 38 ост 0
38 | 19 ост 0
19 | 9 ост 1
9 | 4 ост 1
4 | 2 ост 0
2 | 1 ост 0
1
Выписываем 1 и все остатки снизу вверх: 100110011.
В двоичном представлении 5 единиц.
//Pascal ABC.NET v3.0 сборка 1111
var
a,k,s:integer;
begin
readln(k); //вводим k
a:=0;
s:=0;
while a>=0 do //пока а >=0
begin;
if a>k then s:=s+a; //если a>k, тогда добавляем к s
readln(a); //каждый раз вводим в a
end;
writeln(s); //выводим s
<span>end.
Пример ввода:
45
34
56
67
<span>-2
Пример вывода:
123</span></span>
Программа не доработана,не будет запускаться,очень много ошибок
Ответ:
int a = Int32.Parse(Console.ReadLine());
int b = Int32.Parse(Console.ReadLine());
int c = Int32.Parse(Console.ReadLine());
if(a+b<c && a+c<b && b + c < a)
{
Console.WriteLine("Треугольник существует");
if (a == b && a == c && b == c) Console.WriteLine("Треугольник равносторонний");
else if (a != b && a != c && b != c) Console.WriteLine("Треугольки разносторонний");
else { Console.WriteLine("Треуголькие равнобедренный"); }
}
else
{
Console.WriteLine("Треугольника не существует");
}