<span><span>Вообще, из 9 букв)
Автосалон</span>
</span><span><span>Автоспорт
Автоспуск
Авиасалон
</span></span>
Програмисты , разроботчики приложений и игр
Program b;
var
bal:integer;
stip:real;
begin
write('Введите средний балл учащегося: ');
write('Введите стандартную стипендию: ');
readln(bal,stip);
if bal>=4 then stip:=stip+(stip/2) else
stip:=stip;
writeln('Стипендия учащегося: ',stip);
readln;
<span>end.
Как я понял по условию, нужно посчитать стипендию у различных учеников...</span>
посчитаем количество символов в тексте -38
на кодирование 1 символа идет 1 байт , получается 38 байт
переведем байты в биты: 38*8=304 бита это и есть ответ
Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub