18/3=6(эскимо)
6-5=1(эскимо)
18-3=15(стаканчиков)
P/s в лучшие ответы)
Var a,b,n:integer;
begin
a:=1;
n:=-10;
while n<=15 do
begin
if n<0 then a:=a*n else b:=b+n;
n:=n+1;
end;
write (a:6,b:6);
<span>end.</span>
1 - А (если 1 символ занимает один байт, то 60*1 = 60)
2 - Б
3 - В (2^8 = 256)
4 - В
5 - А
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
if (x>8) or (x<-8) then Writeln('|x|>8')
else Writeln('|x|<=8')
end.