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.
незняю как проверку делать но вот ответы
№3
1001100110(2)
№4
101000010(2)
Нет, народ, я понимаю лень, все такое, но уж это спокойно можно загуглить и решается в онлайн калькуляторах.
Просто берем и переводим.
Берем число в 127 в 8 и переводим в нашу обычную. Это 87. прибавляем 1 и переводим 88 обратно в 10. Получаем 130.
Это если уж совсем думать лень.
А если подумать и провести аналогию с нашими числами?
у нас всего числа от 0 до 9.
т.е. после 19 идет 20
в восьмеричной от 0 до 7. т.е. после 17 идет 20
следовательно второй пункт будет 140.