Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
32 кбит/с*16 с=524288 бит=65536 кбайт.
вес 1 страницы=8*48=384 бит.48
кол-во стр=524288/384=1365 страниц
пусть [a,b] - область и a< =b
var
a,b,x: real;
begin
readln(a,b,x);
if (a< =x) and (x< =b) then
writeln('принадлежит')
else
writeln('не принадлежит');
end.
program w7w7;
var a: real;
readln (a);
if a< 0 then writeln ('otritsatelnoe chislo');
if a> 0 then writeln ('pologitelnoe chislo');
var x1,x2,x3,s1,s2,s3: integer;
function sumofnumber(num: integer): integer;
var s: string;
i: integer;
s: =str(num);
for i: = 1 to length(s) do
sumofnumber: = sumofnumber+int(s[i]);
end;
read(x1,x2,x3);
s1: =sumofnumber(x1);
s2: =sumofnumber(x2);
s3: =sumofnumber(x3);
if s1> s2 and s1> s3 then writeln(x1);
if s2> s1 and s2> s3 then writeln(x2);
if s3> s2 and s3> s1 then writeln(x3);
в правильности написания функции типов не уверенна.
Популярные вопросы