Ввели трехзначное число, определить есть в нем повторяющиеся цифры.паскаль

117

497

Посмотреть ответы 2

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

Топовая20171

Информатика

4,7(41 оценок)

var e : integer; begin

write('введите число: '); readln(e); if ((e div 100) = (e mod 100 div 10)) or ((e div 100) = (e mod 10)) or ((e mod 100 div 10) = (e mod 10)) then write('в числе ', e, ' есть повторяющиеся цифры! ') else write('в числе ', e, ' нет повторяющихся цифр'); readln; end.

wkolo3avr211

Информатика

4,4(16 оценок)

Очевидно, в условии опечатка. если "70 символов в строке, 28 строк, 7 страниц. 64 символа в алфавите", то64 = 2^ii = 6 бит на символ70*28*7*6 = 82320 бит = 10290 байт ≈ 10 кбайт.если "70 символов в алфавите, 28 строк, 7 страниц. 64 символа в строке", то ищем ближайшую целую степень двойки, такую, что 70 < = 2^i 2^6 = 64 < 70 2^7 = 128 > 70 i = 7 и тогда объём равен: 7*70*28*7 = 96040 бит = 12005 байт ≈ 11,7 кбайт.