Программы и блок схемы к ним на скринах, надеюсь всё понятно
PS-------------------------------------------------------------------------------------------
Блок схемы сделаны по устаревшему ГОСТу, но имеют место быть,
Abs - это обозначение модуля в Pascal.
#include <iostream>
using namespace std;
int main () {
int a, b;
cin >> a;
for (b = 1; b <= a; b++ ){
if ( b % 2 == 0){
cout << b << endl;
}
}
}
Алг Число
нач
цел n, n1, k, f
вывод "Введите целое число", нс
ввод n
n1:= div(n,10)
k:= mod(n,10)
f:= 1
нц пока n1<>0
если mod(n1,10) > k то
f:= 0
все
k:= mod(n1,10)
n1:= div(n1,10)
кц
если f=1 то
вывод "Да."
иначе
вывод "Нет."
кон
Function prime(n:longint):boolean;
var i,j:longint;
p:boolean;
Begin
p:=true;
if (n mod 2)=0 then p=false;
i:=3;j:=round(sqrt(n));
while (i<=j)and(p) do
Begin
if(n mod i)=0 then p=false;
inc(i,2);
end;
prime:=p;
end;