Question

Помогите пожалуйста!!! Нарисовать блок-схемы для решения двух задач.
1)Составьте алгоритм, вычисляющий число бит, если задано число Мбайт. Количество
Мбайт вводится.
2) Ввести число. Если оно четное, разделить его на 4, если нечетное - умножить на 5.

Answer 1

1.
var mBytes, bit: int64;

begin
readln(mBytes);
bit := mBytes * 1024 * 1024 * 8;
writeln(bit)
end.

2.
var
a: integer;
begin
readln(a);
if a mod 2 = 0 then writeln(a div 4);
else writeln(a * 5);
end.