Question

пожалуйста, прошу, помогите с информатикой мова програмування обджект паскаль, очень нужно❤​

Answer 1

Ответ:

Объяснение:

var  

 x,sec:integer;

begin

   writeln('Введіть кількість хвилин');

   readln(x);

   sec := x*60;

   writeln('у '+X+' хвилинах(ні) '+sec+' секунд');

   writeln;

   writeln('           (._.)/');

 end.

Answer 2

var
n,x,persent:integer;

begin
writeln('Введіть кількість учнів');
readln(x);
writeln('Введіть кількість хлопців');
readln(n);
persent:= trunc(100/x)*n;
writeln('У класі '+ persent+'% хлопців');
end.