Просто дели его до конца на 2, остатки - это и есть результат перевода.
333 = 101001101
Var
i,k,s:integer;
begin
k:=0; s:=0;
i:=7;
Writeln('Числа на интервале [7;100], кратные 7:');
while i<=100 do begin
Write(i,' ');
s:=s+i; Inc(k);
i:=i+7
end;
Writeln;
Writeln('Сумма этих чисел равна ',s,', количество равно ',k);
end.
Результат выполнения программы
Числа на интервале [7;100], кратные 7:
7 14 21 28 35 42 49 56 63 70 77 84 91 98
Сумма этих чисел равна 735, количество равно 14
Var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln ('Существует')
else writeln ('Не существует');
end.
#include <iostream>#include <stdio.h>#include <conio.h>
int main() { setlocale(LC_ALL, "");
int arr[5];
for (int i = 0; i < 5; ++i) { std::cout << "Введите число:"; std::cin >> arr[i]; }
int min = arr[0], max = min;
for (int i = 0; i < 5; ++i) { if (arr[i] < min) min = arr[i]; if (arr[i] > max) max = arr[i]; }
std::cout << min << "\n" << max; _getch(); return 0;}