Var x:real;
begin
readln(x);
if (x >= 0 and x <= 1)
then write(x * (x - 1))
else write(x * x - Sin(Pi * x * x));
end.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n<1 then Writeln('Число не является натуральным')
else begin
var s:=0;
while n>0 do (s,n):=(s+n mod 10,n div 10);
if s=10 then Writeln('Верно, что сумма цифр числа равна 10')
else Writeln('Неверно, что сумма цифр числа равна 10')
end
end.
<u>Пример</u>
Введите натуральное число: 50311
Верно, что сумма цифр числа равна 10
<u>№2</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n<1 then Writeln('Число не является натуральным')
else begin
var a:=new integer[10];
var good:=False;
while n>0 do begin
var i:=n mod 10;
a[i]+=1; n:=n div 10;
if a[i]>1 then Good:=True
end;
if Good then begin
Write('Цифры, встречающиеся больее одного раза: ');
for var i:=0 to 9 do
if a[i]>1 then Print(i);
Writeln
end
end
end.
<u>Пример</u>
Введите натуральное число: 15365123
Цифры, встречающиеся больее одного раза: 1 3 5
Я очень люблю уроки информатики. Это мой любимый урок. Там всегда весело и интересно. Каждый раз я узнаю что-то новое. Каждый урок не похож на другой, в школе такое бывает редко. Мне нравится работать на компьютере.
На самых первых уроках мы изучали Paint-рисовали разные плакаты и рисунки, дальше уже сложнее: создавали таблицы с разными цифрами, буквами и рисунками. Еще мне нравится интерактивная доска. На ней мы рисуем и выполняем задания специальным карандашом с батарейками. На большом экране мы видим монитор учителя, и всему классу наглядно понятно, что и как делать.
Еще на уроках информатики мы учимся находить в интернете нужную информацию и смотрим разные города со спутника. Это очень интересно. Сразу создается впечатление, что ты побывала в новом месте и увидела много нового.
У нас очень хороший учитель. Она всё объясняет и показывает. .
Под алгоритм подходит число R=258, 258 в двоичной системе счисления равно 100000010. Проходим алгоритм с конца, то есть начинаем со второго пункта под пункта б. Проверяем число 10000001|0 единиц 2 значит 2/2, то остаток от деления 0, значит число подходит под этот пункт, идём дальше. 1000000|1 проверяем второй пункт под а. отбрасываем с конца единицу и получаем общее число 1 равное 1, то есть 1 /2 будет иметь остаток 1, значит число подходит и под этот пункт. Оставшиеся число, переводим из двоичной системы счисления в десятичную. 1000000 = 64, а теперь делим число 64 на 4, так как в начале число N *4, а значит чтобы получить N нам нужно разделить 64/4= 16
Ответ:16