Эти действия назаваются Алгоритмом
Пример:
постучали в дверь,
подойти к двери,
посмотреть в глазок,
принять решение, открывать или нет.
//PascalABC.NET v3.3 1633
begin
var num:=ReadInteger('Введите число: ');
var sum:=0;
for var i:=1 to IntToStr(num).Length do
if IntToStr(num)[i] = '0' then sum += 1;
writeln('Количество нулей: '+sum);
end.
Если я правильно понял задание, то примерно так:
Художник Шишкин пейзажист.
Композитор Моцарт классик.
Озеро Байкал большое.
Город Лондон столица.
Int num;
for(int i = 0; i < k; i++) if(arr[i] == int(arr[i]) num++;
num - количество целых чисел
k - количество интераций
uses crt;
var a,b,c:real;
begin
write('Введите A,B,C: ');
read(a,b,c);
writeln(power(exp(1), (sin(a+b)/cos(a+b))/sin(a)-ln(c) )*sin((sqrt(sqrt(c)+a))/cos(sqrt(a)))/cos((sqrt(sqrt(c)+a))/cos(sqrt(a)))*ln( (sqrt( (a+b)/sqrt(a)+sqrt(b) )-c)/(c+( (c+sqrt(5*a))/c+(sqrt(a+b))/(b*sqrt(c)) )) ):0:5);
<span>end.</span>