107/2(остаток 1)=53/2(остаток 1)=26/2(остаток 0)=13/2(остаток 1)=6/2(остаток 0)=3/2(остаток 1) 1=1101011
Я тут решил попробовать вспомнить старое, но увы не получилось всё сделать правильно, вроде код ниже правильный, но где написано перед строкой "//" это я пометил, что не знаю как там писать. Попробуй сам изменить/дописать код:
program hello;
var
n, kd, d:integer;
begin
read(n);
kd:=0;
// d:=2...[sqrt(n)];
if n mod d = 0 then
kd:=kd+1
else
// d:=2...[sqrt(n)];
begin
if kd = 0 then
writeln('выв "простое"')
else
writeln('ыв "составное"')
end;
end.
1 раз. Цикл repeat работает до тех пор, пока он не станет истинным, но выполнится один раз в любом случае. С самого начала условие истинное.
Var s:string; i:integer;begin readln(s); for i:=1 to length(s)-1 do if s[i]+s[i+1]='му' then begin delete(s,i,2); insert('ло',s,i); end; writeln(s);end.
http://mojainformatika.ru/paskal/uroki-paskal-stroki/118-standartnye-proczedury-i-funkczii-primenyae...
Ответ: 9864101
Вариант на Excel