ответ:
алгоритм- это конечная совокупность точно заданных правил решения произвольного класса или набор инструкций, описывающих порядок действий исполнителя для решения некоторой . в старой трактовке вместо слова «порядок» использовалось слово «последовательность», но по мере развития параллельности в работе компьютеров слово «последовательность» стали заменять более общим словом «порядок». независимые инструкции могут выполняться в произвольном порядке, параллельно, если это позволяют используемые исполнители.
ранее в языке писали «алгорифм», сейчас такое написание используется редко, но, тем не менее, имеет место исключение (нормальный алгорифм маркова).
часто в качестве исполнителя выступает компьютер, но понятие алгоритма необязательно относится к компьютерным программам, так, например, чётко описанный рецепт приготовления блюда также является алгоритмом, в таком случае исполнителем является человек (а может быть и некоторый механизм, ткацкий станок, и
можно выделить алгоритмы вычислительные (о них в основном идет далее речь), и . вычислительные по сути преобразуют некоторые начальные данные в выходные, реализуя вычисление некоторой функции. семантика алгоритмов существенным образом может отличаться и сводиться к выдаче необходимых воздействий либо в заданные моменты времени, либо в качестве реакции на внешние события (в этом случае, в отличие от вычислительного алгоритма, может оставаться корректным при бесконечном выполнении).
понятие алгоритма относится к первоначальным, основным, базисным понятиям . вычислительные процессы алгоритмического характера (арифметические действия над целыми числами, нахождение наибольшего общего делителя двух чисел и т. д.) известны человечеству с глубокой древности. однако в явном виде понятие алгоритма сформировалось лишь в начале xx века.
1:
var N,k,s:integer;
BEGIN
s:=0;
readln(N,k);
N:=abs(N);
while N>0 do begin
if (N mod 10=k) then
s:=s+1;
N:=N div 10;
end;
writeln(s);
end.
2:
var N:integer;
s:string;
BEGIN
readln(N);
s:=IntToStr(N);
if (s[1]=s[Length(s)]) then
writeln('ДА') else
writeln('НЕТ');
end.
3:
var N,p,s,k:integer;
BEGIN
readln(N);
p:=1;
s:=0;
k:=0;
while N>0 do begin
p:=p*(N mod 10);
s:=s+(N mod 10);
k:=k+1;
N:=N div 10;
end;
writeln('Количество цифр = ',k);
writeln('Сумма цифр = ',s);
writeln('Произведение цифр = ',p);
end.