Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
режим разметки страницы,режим структуры,режим чтения.режим веб документа-
1) найти убыль как к-во * 12%
2) найти прирост как к-во * 20%
3) к-во = к-во-убыль+прирост
выполнить 8 раз
var
x,a,b: real;
i: integer;
begin
x: =100000;
for i: =1 to 8 do
a: =x*0.12;
b: =x*0.20;
x: =x+b-a;
end;
writeln(x);
end.
совершенное число это число равное сумме своих делителей отличных от самого числа
var i, s,j : integer;
begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.
1) 35-25=10 (чел.) - не являются читателями школьной библиотеки
2) 35-20=15 (чел.) - не являются читателями районной библиотеки
3) (25+20)-35=10 (чел.) - читатели обеих библиотек
4) 20-10=10 (чел.) - читатели только районной библиотеки
5) 25-10=15 (чел.) - читатели только школьной библиотеки
Популярные вопросы