В общем, вот.
Решение реализовано с помощью рекурсивных функций, fac и sum, которые вызываются в зависимости от ситуации.
Поэтому ниже нарисованы три блок-схемы:
Первая - это само тело программы
Вторая - рекурсивная функция fac(для вычисления факториала)
Третья - рекурсивная функция sum(для суммы)
Как-то так :)
begin
var Пауков := 0;
while Пауков < 9 do
begin
if (37 - 4 * Пауков) mod 3 = 0 then
begin
var Тараканов := (37 - 4 * Пауков) div 3;
Println('Пауков -', Пауков, ' Тараканов - ', Тараканов)
end;
Inc(Пауков)
end;
end.
1.
Var a,b,c : Integer;
Begin
Readln(a,b,c);
Writeln((a mod b)*(c div b));
end.
2.
Var a,d,c,k : Integer;
Begin
Readln(a,d,c,k);
Writeln((a+(d-12)*3)*(c-5*k));
end.
<span>Один бит, один символ. </span>
<span>1200 бит/с 1200 символов/с </span>
<span>и т.д. </span>