На паскале:
var a:integer;
begin
writeln('Введите целое положительное число');
read(a);
if a mod 2 = 0 then writeln('Число чётное')
else writeln('Число нечётное');
end.
Var a,b,p,n:integer;
begin
writeln ('Введите два числа:');
readln (a, b);
n:=abs(b);
if (a=0) or (b=0) then
writeln (a,'*',b,'=0')
else begin
while (n<>0) do begin
n:=n-1;
p:=p+abs(a)
end;
if (a>0) and (b>0) then writeln (a,'*',b,'=',p);
if (a<0) and (b<0) then writeln ('(',a,')','*','(',b,')','=',p);
if (a>0) and (b<0) then writeln (a,'*','(',b,')','=-',p);
if (a<0) and (b>0) then writeln ('(',a,')','*',b,'=-',p);
end;
end.
Не парься!!!!!!))))))))))))
Предполагаемая цель блок-схемы: определить количество положительных чисел из двух данных.
<h2>Решение</h2>
A >= 0 ? да
k := k + 1 = 0 + 1 = 1
b >= 0? да
k := k + 1 = 1 + 1 = 2
<h2>Вывод</h2>
2