Регистрация
vlad1457
02.09.2022 07:51
Информатика
Есть ответ 👍

Массив из n чисел (n меньше, либо равно 10) заполняется натуральными числами с клавиатуры, найти такую пару чисел, чтобы их произведение делилось на 26 без остатка, если такие числа найти не удалось,вывести сообщение "no" (паскаль)

102
272
Посмотреть ответы 3

Ответы на вопрос:

aleksapopov1
aleksapopov1
4,7(8 оценок)
// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   if n> 10 then begin writeln('n> 10'); exit end;   var a: =readarrinteger(n);   writeln(10*'-');   var b: =a.where(k-> k.iseven or (k mod 13=;   var m: =0;   for var i: =0 to b.count-2 do       for var j: =i+1 to b.count-1 do           if (b[i]*b[j]) mod 26=0 then begin               println(b[i],b[j]); m+=1               end;   if m=0 then writeln('no') end. пример n= 6 29 38 16 39 41 7 38 39 16 39
Olia234566
Olia234566
4,4(100 оценок)
Var     a: array[1..10] of integer;     i,j,n,k: integer; begin write('n = '); readln(n); write('введите массив a(',n,'): '); for i: = 1 to n do       read(a[i]); k: =0; for i: = 1 to n do       for j: = i+1 to n do               if (a[i]*a[j]) mod 26 = 0 then                       begin                       writeln(a[i],' ',a[j]);                       k: =1;                       end; if k=0 then writeln('no') end.
сердечко141
сердечко141
4,5(31 оценок)

при переводе десятичных дробей, чтобы перевести из десятичной системы счисления нужно:

1) последовательно умножать данную дробь на основание системы счисления, в которую переводим, до тех пор, пока дробная часть не будет равна нулю, или не будет достигнута требуемая точность вычислений. при этом необходимо выделять целые части получаемых произведений; 2) полученные целые части произведений, являются цифрами числа в новой системе счисления (при необходимости их надо в соответствие с алфавитом этой системы счисления); 3) составить дробную часть в новой системе счисления начиная с целой  части первого произведения.

0,625 в десятич. :

0,625*2=1,25

0,25*2=0,5

0,5*2=1

итого: 0,101

 

для того чтобы перевести в десятичную нужно применять обычные правила за исключением того, что числа после запятой возводяться в отрицательную степень:

0.101 в двоичной = 0, 1*2^-1 + 1*2^-3=0, 625

 

3,875 (10)=11.111 (2)

Популярно: Информатика