Нашел раз Системный блок небольшой дом. Залез в него и стал там жить. Пришла мышь и спрашивает:"Кто в теремке живет?"Системный блок ответил:"Я здесь живу, заходи вместе жить будем".Жили они хорошо.Пришел модем, спросил:"Кто в теремке живет?" А ему отвечают:"Мы, системный блок и мышь, заходи к нам."Стали вместе жить.Пришла клавиатура и спросила:"Кто тут живет?"Ей ответили:" Мы, системный блок, мышь и модем, заходи к нам." Стали вместе жить.Пришел монитор, спросил:"Кто здесь живет? "А ему ответили:"Нет места".Залез монитор на дом-теремок и стал там жить. Так появился компьютер. (домик-стол компьютерный)
Похоже, в С3 текстовой формат: 0,20 а надо точку 0.20 (в разных Екселях по-разному, где разделительная точка, где запятая)
Ответ:
program tt;
uses wincrt;
var
chislo,a,b,c:integer;
begin
ClrScr;
writeln('Введите число:');
readln(chislo);
a:=chislo div 100;
b:=(chislo mod 100) div 10;
c:=chislo mod 10;
if (a=b) or (a=c) or(b=c) then
writeln('Есть!')
else
writeln('Нет!');
readln;
end.
Объяснение:
для кодирования 16 символов потребуется 4 бита
2^4=16
40*4=160 бит=20 байт