Program dividers;
var
c,i,n :Integer;
begin
readln(n);
repeat
if ( (n mod i) = 0 ) and ( (i mod 2) <> 0) then c:= c + 1;
if ( (n / i) mod 2) <> 0 then c:= c + 1;
i:= i + 1;
until i < (sqrt(n) + 1);
writeln(c);
end.
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure Love(n:integer);
begin
Writeln(n*('Я люблю ПАСКАЛЬ'+NewLine))
end;
begin
Love(ReadInteger('n='))
end.
<u>Пример</u>
n= 5
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure LinEqu(a,b:real);
begin
if a=0 then
if b=0 then Writeln('Решений бесконечно много')
else Writeln('решений нет')
else Writeln('x=',-b/a)
end;
begin
var a,b:real;
Write('Введите а и b: '); Read(a,b);
LinEqu(a,b)
end.
<u>Пример</u>
Введите а и b: 18.45 -12
x=0.650406504065041
Эмм.. Это загадка? Символ?
2 4 1 3
& это логическое и . | это логическое или.
чем больше &, тем меньше количество страниц. Чем больше |, тем больше страниц
Поставь мне благодарность и пять звёзд)))) и тогда я напишу ответ