Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, x, s : integer;
begin
write('введите число х=');
readln(x);
s: =0
i: =1
while i < =x do
s: =s+i;
i: =i+2
end;
write('сумма нечетных чисел ='; s);
readln
end.
32 кбит/с*16 с=524288 бит=65536 кбайт.
вес 1 страницы=8*48=384 бит.48
кол-во стр=524288/384=1365 страниц
по формуле включений-исключений
35 = 24 + 18 + 12 - 5 - 10 - 8 + х
х = 4
чтобы понять формулу, надо нарисовать 3 круга которые имеют общую область пересечения
var alpha: real;
read(alpha);
if alpha > 90 then write("tupougolnyj");
if alpha = 90 then write("prjamougolnyj");
if alpha < 90 then write("ostrougolnyj");
Популярные вопросы