Ответ: 38 учеников. Примерно 50/50 мальчиков и девочек
Var x,y:real;
begin
write('x = ');
readln(x);
y:=x/3;
writeln('y = ',y);
end.
Пример:
x = 15
y = 5
Для представления текстовой информации в компьютере используется алфавит мощностью <span>25<span>6 символов.
</span></span>
1 символ = 8 бит = 1 байт
то есть в тексте <span>"Не оставляй на завтра то,что можно сделать сегодня" 50 сиволов
50 * 1 = 50 байт или (400 бит) памяти занимает</span>
//Pascal ABC.NET 3.1 сборка 1256
Var
b,a,m,ar:real;
i:integer;
begin
readln(b,m,a);
i:=0;
ar:=a*m;
while ar>a do
begin
inc(i);
a:=a*(b/100+1);
end;
writeln(i);
end.
Пример ввода:
33
2
100
Пример вывода:
3
Да 7-6=1 так как у второго ёжика 1 яблоко