Кто может, решить по информатике 7. решите: 1110012=х10; 11102= х10; 10001112= х10 варианты ответов: - id535624620201204 от kuznecov16 04.12.2020 02:06

Question

Информатика: Кто может, решить по информатике 7. решите: 1110012=х10; 11102= х10; 10001112= х10 варианты ответов: а) 4510; 5710; 7110 б) 5710; 1410; 3510 в) 5510; 4410; 7110 г) 5710; 1410; 7110 д) среди ответов а, б, в, г нет правильного 8. перевести данное число из десятичной системы счисления в двоичную, восьмерич-ную системы счисления. а) 666(10) б) 305(10) 9. перевести данное число в десятичную систему счисления. а) 1100111011(2) б) 10000000111(2)

kuznecov16 · Accepted Answer

Program proga;
Var
p: text;
i, n : byte;
s,min,m: string;
Begin
write('Введите имя файла '); {Например: C:.txt}
read(m);
Assign(p,m);
reset(p);
read(p,s);
min:=s;
n:=100;
for i:=1 to n do
begin
readln(p,s);
while not eof(p) do
{нахождение минимальной строки}
begin
readln(p,s);
if length(s) <= length(min) then
min:=s;
end;
end;
close(p);
write('самая короткая строка: ',min);
End.

MOGZ ответил