1)
begin
var a:=ReadArrInteger('Введите 10 чисел:',10);
var i:=a.IndexMax;
Writeln('Максимум A[',i+1,']=',a[i]);
<span>end.
</span>
2)
const n=6;
type
Q=record
ch:integer;
zn:integer;
end;
var a:array[1..n] of Q;
j,k,max:integer;
f:boolean;
mx:Q;
begin
write('k: ');
readln(k);
for var i:=1 to n do
begin
writeln('Дробь ',i);
write('Введите числитель= ');
readln(a[i].ch);
repeat write('Введите знаменатель= ');
readln(a[i].zn);
until a[i].zn>0;
end;
writeln('Введенные дроби:');
for var i:=1 to n do
write(a[i].ch,'/',a[i].zn,' ');
writeln;
j:=0;
for var i:=1 to n do
if (a[i].ch div a[i].zn mod k = 0) then j:=j+1;
writeln('кол-во ',j);
end.
Пример
k: 8
Дробь 1
Введите числитель= 16
Введите знаменатель= 2
Дробь 2
Введите числитель= 64
Введите знаменатель= 8
Дробь 3
Введите числитель= 120
Введите знаменатель= 15
Дробь 4
Введите числитель= -15
Введите знаменатель= 5
Дробь 5
Введите числитель= -16
Введите знаменатель= 2
Дробь 6
Введите числитель= -8
Введите знаменатель= 1
Введенные дроби:
16/2 64/8 120/15 -15/5 -16/2 -8/1
кол-во 5
Надо скачать калькулятор, перевести в zip формат, после чего скачать apk
Ну во второй задаче, сумма большего разряда от 2 до 18, а сумма меньшего и среднего от 0 до 18, следовательно число 191615 не подходит и число 111 тоже.
число 151302 не подходит так 03 невозможно ( в данном случае 0 будет не значащем так сумма может быть равна 3 но не 03 ). Оставшиеся числа и есть ответ.
Всего 3 символа: 2 числовых и буква. Мы можем использовать 26 букв, и 10 цифр. Следовательно, получается 26*10*10 = 2600 комбинаций. Но нам нужно ещё отбросить все те, где 2 цифры равны 5. Тоесть, отнять 26 комбинаций. В результате 2600 - 26 = 2574