Племя мульти пишет письма, пользуясь 16-символьным алфавитом. племя пульти пользуется 32- символьным - id437680320200710 от Kikookiko 10.07.2020 06:05

Question

Информатика: Племя мульти пишет письма, пользуясь 16-символьным алфавитом. племя пульти пользуется 32- символьным алфавитом. вожди племен обменялись письмами. содержащими одинаковое количество символов. сравните информационные объёмы сообщений, содержащихся в письмах.

Kikookiko · Accepted Answer

1.Как я понял, последовательность вводится с клавиатуры и признак окончания ввода - 0. Значит имеет смысл использовать цикл Repeat
2. Вводимые числа - целые.
После этих уточнений можно написать код на PascalABC:

//Вариант с циклом repeat
var
a, min: integer;

begin
min := 555555;
repeat
    readln(a);
    if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then
      min := a;
until a = 0;
writeln(min);
end.

//вариант с циклом while
var
a, min: integer;

begin
min := 555555;
    readln(a);
    while (a>0) or (a<0) do begin
    if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then
      min := a;
      readln(a);
   end;
writeln(min);
end.

MOGZ ответил