program a_1;
var i,k,s1: integer;
s2,l,n:real;
begin
read(i,k);
(*Ввод длины и ширины комнаты.*)
readln(l);
(*Ввод стороны плитки.*)
l:=l/100;
s1:=i*k;
s2:=l*l;
n:=s1/s2;
write('Искомое количество:',n:8:4)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program a_1;
var i,k,s1: integer;
s2,l,n:real;
begin
read(i,k);
(*Ввод длины и ширины комнаты.*)
readln(l);
(*Ввод стороны плитки.*)
l:=l/100;
s1:=i*k;
s2:=l*l;
n:=s1/s2;
write('Искомое количество:',n:8:4)
end.