Запишите пословицы на языке блок-схем,укажите типы алгоритмов.
чужую беду руками разведу.
коси, коса, пока роса, роса долой, и мы домой.
в умной беседе - ума добудешь, а в глупой - и свой потеряешь.
семь раз отмерь, один отрежь.
ученье - свет, а неученье - тьма.
куй железо, пока горячо.
var
a:Integer;
begin
Writeln('Vvedite nominal valuti');
Readln(a);
case (a mod 10) of
1:
if (a=11) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rubl');
end;
2,3,4:
if (a=12) or (a=13) or (a=14) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublya');
end;
0,5,6,7,8,9:
if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublei');
end;
end;
Readln;
end.