1. Ответ: a:=26
2. Ответ: a:=30
<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 класс, то должно быть так)))
Var
x, sum: integer;
begin
read(x);
while(x gt; 0) do
begin
if(x mod 10 lt;= 5) then sum := sum + x mod 10;
x := x div 10;
end;
write(sum);
end.