Program n1; var a: integer; procedure sort (a,b,c: integer); var t: real; begin if a>b then begin a:=a+b; b:=a-b; a:=a-b; end; if b>c then begin b:=b+c; c:=b-c; b:=b-c; end; if a>b then begin a:=a+b; b:=a-b; a:=a-b; end; t:=((c/100)+(b/10)+a)*100; writeln('полученное число: ',t); end; begin write('введите число: '); readln(a); sort(a div 100,a mod 10,round(((a mod 100)-(a mod 10))/10)); end.
Uses crt;constn = 10;vari,b:integer;mas : array[1..n] of integer;v:array[1..n]of integer;max_num, max_index,g,c: integer;begin writeln('введите элементы массива');for i:=1 to n do readln(mas[i]);for i := 2 to n doif mas[i] > max_num then beginmax_index := i;max_num := mas[i];end;writeln('введите элементы массива');for b:=1 to n do readln(v[b]);for b := 2 to n doif v[b] > g then beginc := b;g := v[b];end;if g<max_num then writeln('Максимальное число в первом массиве ',max_num ,' находится на позиции ',max_index)else writeln ('Максимальное число во втором массиве ',g,' находится на позиции ',c);end.
# Код на ruby 2.2.3p173 def automate(n) a = n / 1000 b = n / 100 % 10 c = n / 10 % 10 d = n % 10 t = [a*b, c*d] return (t.max.to_s + t.min.to_s).to_i end
def zadanie() for i in 1000..9999 t = automate(i) p [t, i] if t == 174 end end # Примеры применения zadanie()
ответ - нет таких цифр
Аналитическое решение 174 можно разложить на 1 + 74 и 17 + 4 по правилу 2 это только 17 + 4 17 - произведение двух чисел, но 17 простое и произведение только 17 и 1. 17 не может быть одной цифрой Значит вариант 174 невозможен при таких правилах
var a: integer;
procedure sort (a,b,c: integer);
var t: real;
begin
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
if b>c then
begin
b:=b+c;
c:=b-c;
b:=b-c;
end;
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
t:=((c/100)+(b/10)+a)*100;
writeln('полученное число: ',t);
end;
begin
write('введите число: ');
readln(a);
sort(a div 100,a mod 10,round(((a mod 100)-(a mod 10))/10));
end.