Var s:string; i,k:integer;
Begin
readln(s);
i:=1;
while (s[i]<>'.')and(i<>length(s)) do
i:=i+1;
delete(s,1,i);
k:=0;
for i:=1 to length(s) do
if s[i]<>'0' then k:=1;
if k=0 then writeln('Число целое')
else writeln('Число дробное');
End.
<span>Электронный документ - это набор данных, которые хранятся в памяти компьютера под определенным именем.
</span>
Program zadacha;vara,b,sum,pr:integer;beginwriteln('vvedite dva chisla');readln(a,b);if (a<>10) and (b<>10) and (a mod 2 = 0)thenwriteln('a+b=',a+b)elsewriteln('a*b=',a*b);end.
1) 16х=128 кб - переведём кб в бит 128 кб = 128 *1024 * 8 = <span>1048576</span>
дальше проще 16х=<span>1048576</span>
х=<span>1048576</span> : 16
х=<span>65536</span>
2) 8х=32 кб - так же переводим в биты 32кб=32*1024*8=<span>262144</span> бит
8х=262144
х=262144 : 8
х=<span>32768</span>
Ответ:
var
a, b: Real;
c : Integer;
begin
Write ('A, B = ');
ReadLn (a, b);
c := 0;
if a > 0 then
Inc (c);
if b > 0 then
Inc (c);
WriteLn ('Количество положительных = ', c);
ReadLn;
end.