uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.
<span>Больше для жителей планеты Принтер на 10 бит.</span>
Тянуть репку
нц пока репка не вытащена
позвать еще одного помощника
тянуть репку
кц
<span>При имитационном моделировании структура системы отображается в модели, а процессы ее функционирования проигрываются (имитируются) на построенной модели. Выделяют статическое описание структуры системы, для чего нужно выполнять структурный анализ процессов, и описание динамики взаимодействий элементов системы, для чего нужно построить функциональную модель динамических процессов.</span>
<span>B3 (16) = 179 (10)
126 (8) = 86 (10)
86 + 179 = 265 (10) = 109 (16) = 411 (8) = 100001001 (2)
Можно такие вещи в калькуляторе считать. Выбираешь вид - Программист. А потом выбираешь систему счисления Hex - 16, Dec - 10, Oct - 8, Bin - 2. После записи числа, опять меняешь систему, калькулятор автоматом переводит.</span>