Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ответ 138 номер последнего
решение 1024/8+10=128+10=138
1 байит= 8 бит
1) 35-25=10 (чел.) - не являются читателями школьной библиотеки
2) 35-20=15 (чел.) - не являются читателями районной библиотеки
3) (25+20)-35=10 (чел.) - читатели обеих библиотек
4) 20-10=10 (чел.) - читатели только районной библиотеки
5) 25-10=15 (чел.) - читатели только школьной библиотеки
var i: integer;
s,z: real;
begin
z: =8;
for i: = 2 to 7 do begin
s: =s+z;
z: = z*(1+10/100);
end;
writeln(s);
end.
если я парвильно понял , то вотvar x,y : integer;
readln(x);
if x> =0 then y: =1
esle y: = 0;
writeln(y);
Популярные вопросы