Question

Нужно составить программу для паскаля по данной задаче: Определить сколько процентов в сутки спит человек.

Answer 1

var a,t: real;

begin

write('vvedite kolichestvo chasov, kotoroe spit chelovek');

readln(a);

t:=(a*100)/24;

write('chelovek spit ',t:2:0,'%');

readln;

end.