var
a, b, a1, b1, cost, w, h: integer;
begin
readln(a, b, a1, b1, cost);
w := a div a1;
if a mod a1 <> 0 then inc(w);
h := b div b1;
if b mod b1 <> 0 then inc(h);
writeln(w * h);
writeln(w * h * cost);
end.
Объяснение:
& - это ^. У меня он не ставится, но делает свои действия. У себя его ставьте!
Нажмите клавишу Ctrl<span> на клавиатуре и удерживайте ее нажатой</span>
<SCRIPT>
var a = prompt('1. a = ','');
alert ('V = '+a*a*a+' S = '+6*a*a);
z = -1; s=0;
for (i=1; i<=10; i++){z=-z; s=s+z*i};
alert ('s=1-2+3+...+(-1)^9*10 = '+s);
var s = prompt('3. s = ','');
k=0;
for (i=0; i<s.length;i++)
if (s[i]=='к') k++
alert ('k = '+k);
</SCRIPT>
Пример показан в прилагаемом файле.