Алг нахождПроцент Нач Ввод a и b S=b/a*100 вывод S кон алг

Question

Алг нахождПроцент Нач Ввод a и b S=b/a*100 вывод S кон алг

Answer 1

program procent;

var a, b, s: real;

begin

   writeln('Введите a');

   readln(a);

   writeln('Введите b');

   readln(b);

   s:=b/a*100;

   writeln(s,'%');

end.