#include <iostream>
using namespace std;
int main()
{
int A,B,C;
cin >> A >> B >> C;
for(int i = A; i <= B; i++)
{if(i % C == 0) cout << i << " ";}
return 0;
}
3 cуммы:
13,10,7
Второе число :486
Первое число:xyz
Наибольшее число,значит максимален старший разряд,потом максимален средний разряд,потом максимален меньший разряд(максимален по возможности)
Старший максимален,значит максимально возможная сумма из 3 -13
х+4=13
х=9
Средний максимален,значит максимально возможная сумма из 2-10
у+8=10
у=2
Меньший максимален,осталась только сумма 7
z+6=7
z=1
921
Ответ:921
27 13 6 3 1 ДЕЛИМ 27 на 2 , в частном берем без целое число (=13)
1 1 0 1 1 <=== 27(10) =11011(2) пишем в обратном порядке
Делим 13 на 2, в частном берем целое без округления 6
Делим 6 на 2 (=3) и т.д.
11 5 2 1
1 1 0 1 11(10) = 1011(2)
2001 1000 500 250 125 64 32 16 8 4 2 1
1 0 0 0 1 0 0 0 0 0 0 1
2001(10) =100000010001(2)
Var
N, a1, a2, a3, min, max: integer;
begin
readln(N);
N := abs(N);
a1 := N mod 10; //в а1 хранится разряд единиц введённого числа
N := N div 10; //"стираем" в N последнюю цифру
a2 := N mod 10; //в а2 хранится рязряд десятков числа N
N := N div 10;
a3 := N mod 10; //в а3 хранится рязряд сотен числа N
//-------------------------
//поиск минимума из цифр. в переменной мин
//хранится наименьшее число на данном шаге.
min := a1;
if a2 < min then
min := a2;
if a3 < min then
min := a3;
//---------------------------
//поиск максимума
max := a1;
if a2 > max then
max := a2;
if a3 > max then
max := a3;
//--------------------------
writeln('min - ', min, ' max - ', max);
end.
Создаёшь в папке с программой два текстовых файла с именами "1.txt." и "output.txt". В первый записываешь 8 чисел без пробелов и запятых ("22031991", например).
type matrix = array [1..8] of integer;var F, output: text; i, n, cc, sum: integer; c: char; x: matrix; ma: real;
procedure convert (var c: char; var cc: integer);begin if c='1' then cc:=1; if c='2' then cc:=2; if c='3' then cc:=3; if c='4' then cc:=4; if c='5' then cc:=5; if c='6' then cc:=6; if c='7' then cc:=7; if c='8' then cc:=8; if c='9' then cc:=9; if c='0' then cc:=0;end;
procedure sorting (n: integer; x: matrix);begin for n:=1 to 7 do begin if x[n]>x[n+1] then swap(x[n],x[n+1]); end;end;
begin Assign(F, '1.txt'); Reset(F); for i:=1 to 8 do begin read(F, c); convert(c,cc); x[i]:=cc; end; Close(F);
sorting(n,x); sum:=x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8]; ma:=sum/8; Assign(output, 'output.txt'); rewrite(output); writeln(output, sum); writeln(output, ma); Close(output);end.