На бейсике: p=1
for i= 25 to 60 step 2
p=p*i
next
print p
на паскале: var i,p:integer;
for i:=25 to 60 do
if i mod 2 =1 then p:=p*i;
write(p);
end.
Если использовать бинарную систему, то есть: 0 - нет звука, 1 - есть какой-либо звук, то запись: "0001", будет звучать как небольшая пауза и короткий гудок.
Однако, запись: "1" или "11111" будет звучать, как шум.
Запись в виде наилучшей последовательности, к примеру: "00110110001001010101" может дать определённую звучную мелодию.
Смотри, нас учили так: берешь число, и делишь столбиком(так легче и понятнее) на степень, в которую нужно перевести.. а потом собираешь число в обратном порядке
Ответ: 2 единицы
Uses crt;
var a,b:real;
num:integer;
begin
writeln('Введите два числа');
readln(a,b);
writeln('Выберите операцию: 1.сложение, 2.умножение');
readln(num);
clrscr;
case num of
1:writeln(a,'+',b,'=',a+b);
2:writeln(a,'*',b,'=',a*b);
end;
end.