А•16^0+F•16^1+1•16^2
A=10
F=15
10+15•16+256=506
<span>Любознательный малыш
Взял компьютерную мышь</span><span>И кричит:
«Борис, Борис!
Кушай мышку,
Кис-кис-кис!»
Кот из кухни прибежал,
Мышь понюхал и сказал:
«Кушай сам её, глупыш,
<span> Мне нужна живая мышь!»
</span></span><span>***
На компьютерную мышку
Виртуальный смотрит кот,
Виртуальными когтями
Изнутри экран скребёт.
Но коту послала мышка
Мэйл:
СОБАКА
ТОЧКА
Р – Р – У -У!
Испугался кот-трусишка
И удрал в свою игру.</span>
»
//Pascal ABC.NET v3.1 сборка 1172
begin
writeln(range(60,80).where(x -> x mod 5=0).Sum);
end.
Вывод:
350
Маловато баллов за такую задачку.
Var z:array[1..16] of integer; k:array[1..16] of real; i,p,s:integer; max:real;
Begin
randomize;
for i:=1 to 16 do z[i]:=random(101);
write('Z=');
for i:=1 to 16 do write(z[i],' ');
writeln;
writeln;
p:=0;
s:=0;
for i:=1 to 16 do
if (i mod 2)<>0 then
begin
s:=s+z[i];
p:=p*z[i];
end;
writeln('P=',p);
writeln('S=',s);
writeln;
for i:=1 to 16 do k[i]:=z[i]*<span>exp(ln(i*z[i])/3);
</span>write('K=');
for i:=1 to 16 do write(k[i]:0:0,' ');<span>
max:=k[1];
for i:=1 to 16 do
if k[i]>max then max:=k[i];
writeln;
writeln('max=',max:0:0);
for i:=1 to 16 do
if k[i]=max then k[i]:=0;
write('K=');
for i:=1 to 16 do write(k[i]:0:0,' ');
End.</span>
Деление на 0 или тому подобное в формуле. А может быть узкая строка , результат не помещается в ячейку