«Перевод чисел из одной системы счисления в другую» Задание 1. Ержан взял десятичное число и перевел - id1395844520210203 от nikitatsyplyat 03.02.2021 07:40

Question

Информатика: «Перевод чисел из одной системы счисления в другую» Задание 1. Ержан взял десятичное число и перевел его в различные системы счисления и получил следующие значения: 2-я: 100010 8-я: 44 16-я: 22 При этом в одном из чисел он допустил ошибку при переводе. Найдите десятичное число, которое он переводил. Представьте решение и укажите в какой системе счисления он допустил ошибку. Решение: Переводимое число: Система, в которой допущена ошибка: Правильный ответ:

nikitatsyplyat · Accepted Answer

Странноватая задача, конечно. Естественно, что в множестве нет порядка элементов, использование процедур (функций) здесь совершенно ни к чему. Если учитывать все требования, то получится весьма корявая программа. Примерно вот такая:
var s,s1:string; i:integer;
mn:set of 'a'..'z';
function f(c:char;m:set of 'a'..'z'):boolean;
begin
f:=(not (c in m))and(c in ['a'..'z'])
end;
begin
writeln('Введите строку:');readln(s);
mn:=[];s1:='';
for i:=1 to length(s) do
if f(s[i],mn) then
begin
mn:=mn+[s[i]]; s1:=s1+s[i];
end;
writeln(s1);
end.

Пример работы:
Введите строку:
this is an example text.
thisanexmpl

MOGZ ответил