For всегда равен нулю, если делимое меньше делителя. Взятие остатка mod вычисляется остатка полученный при выполнении целичесленного делителя
RFV,EP RE,HBR ZRJHM
DFDASD ASD ASD ASDAS DASD ASD
<span>Program 1;</span>
<span>Var i, dlina, shirina, visota, </span><em>N</em><span>, S, V : Integer;</span>
BEGIN
WriteLn(’Введите число залов‘);
ReadLn (N);
for<span> i:=1 </span>to<span> </span><em>N</em><span> </span>do<span> </span>begin
<em />WriteLn(’Введите длину,ширину и высоту зала‘);
<span>ReadLn (dlina, shirina, visota);</span>
<span>S:=dlina*shirina;</span>
<span>V:=S*visota; </span>
<span>WriteLn(‘</span>Площадь пола=<span>’,S,’ </span>Объем зала=<span>‘,V);</span>
end
END.
если это 8-9 класс, то должно быть так)))
Поделить на 1000 !!!!!!!!!!!!! смотря какое число
Uses crt;
var
i,a:integer;
begin
for i:=1 to 16 do
begin
textcolor(i);
a:=random(50);
write(a);
sound(I*100);
delay(5000);
nosound;
end;
readkey;
end.<span>
</span>