//PascalABC.Net 3.2
begin
var n:=readinteger('Введите число: ');
var count:=0;
repeat
if abs(n mod 10)=1 then count+=1;
n:=n div 10;
until n=0;
write ('Единиц: ', count);
end.
Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.
Код программы:
function isSevenHere(number : integer) : boolean;var digit : integer;begin Result := true; while (number > 0) do begin digit := number mod 10; if (digit = 7) then exit; number := number div 10; end; Result := false;end;
var i,k :integer;begin write('Введите k: '); readln(k);
for i := 1 to k do if (isSevenHere(i) = true) then write(i,' ');end.
<span>1 кб=1024 б
</span><span>1 мб=1024 кб=1048576 байт
</span><span>1Гб=1024 мб= 1048546
</span><span>кб=1073741824 кб</span>
Проект не являлся изначально коммерческим, его создали в качестве дипломного проекта. Проще говоря, он относится к свободной разработке.
Ответ:
Объяснение:
Клавиатура, мышка, наушники, веб камера, сканер, принтер, различные устройства ввода, монитор, модем..