//Pascal ABC.NET 3.1 сборка 1219
Var
x,y,r:real;
k,i,xi,yi:integer;
begin
readln(x,y);
xi:=round(x-frac(x));
yi:=round(y-frac(y));
for i:=xi to yi do
begin
inc(k);
r:=r+power(i,3);
writeln(i);
end;
writeln('Count=',k);
writeln('Sum=',r);
end.
Пример ввода:
-1.8
2.8
Пример вывода:
Count=4
Sum=8
1) N=256
формула: N=2^I
256=2^8=2^I
ответ: I= 8 бит
2) вообще-то x*y=128*128, а у тебя k
I= 4 кбайт= 4096 байт=32768 бит
N=32768 бит=2^15
Начало (в овале)
↓
А, В (в параллелограмме)
↓
S=2*А*В (в прямоугольнике)
↓
S (в параллелограмме)
↓
конец (в овале)
var s,p: string;
i: integer;
begin
write('Введите текст: ');
readln(s);
p:=s;
for i:=1 to length(s) do
if (s[i]='.') or (s[i]='!') or (s[i]='?') or (s[i]=',')
then delete(p,pos(s[i],p),1);
write('результат: ',p);
end.