6папок т.к в 1 папке содержится 2-3 бита
1)Ввод данных (допустим а, в, с (строго в этом порядке))
2)Сравнение а>A (Если "правда" тогда "2а" если нет "2б")
2а)Сравнение a<B (Если "правда" тогда "3" если нет "2б")
2б)Переход к пункту 2 (При этом "a" меняется на "b" и т.д.)
3) вывод данных (если есть еще числа тогда "2б", если нет тогда окончание блок схемы)
Var N,K : integer;beginK := 10; read(N); if (N div 10 + N mod 10) < K then begin writeln('Сумма цифр числа N меньше K'); end; writeln('N = ', N);end.
var
a: integer;
b: real;
begin
writeln ('введи целое число');
read (a);
if a mod 2=0 then b:=a/2
else
b:=a*a*a;
writeln ('результат',b);
end.
У вас в школе есть C++?
У меня выводит число 707