составить программу. Вводятся 2 числа a и b. Где а- натуральное число, b-число от 1 до 9. С цикла найти сколько раз число b встречается внутри числа а.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
procedure BubbleSortFlag(a:array of integer); // пузврьковая сортировка с флажком begin var f:=True; // флажок перестановки var p:=1; // номер перестановки var n:=a.Length; while f do begin f:=false; for var i:=0 To n-p-1 Do if a[i]>a[i+1] then begin Swap(a[i],a[i+1]); f:=true end; p+=1 end end;
begin var a:=ArrRandom(10,-10,10); a.Println; BubbleSortFlag(a); a.Println end.
1) Информационный ресурс-это данные в любом виде для получения достоверной информации. Это может файл, фотография, какое-то видео,отдельные массивы документов в информационных системах и так далее. 2) Информационные ресурсы делятся на три вида-государственные(национальные) ресурсы, персональные информационные ресурсы, информационные ресурсы предприятий. 3) МSNBС-представляет новости СШA, АBС Nеws-представляет новости со всего мира на английском языке, Wikiрedia-сетевая энциклопедия на разных языках со всего мира, электронные книги, и многое другое
program z1;
var a,b,k: integer;
begin
k:=0;
write ('a = ');
read(a);
write ('b = ');
read(b);
while a > 0 do
begin
if a mod 10 = b then k:=k+1;
a:=a div 10
end;
write('Результат ',k)
end.
Объяснение:
Вводим числа
Цикл с предусловием
Если последняя цифра числа а равна числу b, то значение k увеличиваем на 1
Изменяем значение а, на целый результат деления на 10
Вывод значения k
mod - остаток от целочисленного деления
div - целочисленное деление