program zadacha;
var x,y:integer;
begin
write('Значение x=');
readln(x);
if x>0 then
y:=2*x-5
else
if x=0 then
y:=0
else
if x<0 then
y:=3*x-1;
writeln('Значение функции y=',y);
end.
Чтобы перевести десятичное число в 2-чную систему, нужно это число последовательно делить на 2 с остатком. Например, переведём 83.
Делим
83 : 2 = 41 (остаток 1)
41 : 2 = 20 (остаток 1)
20 : 2 = 10 (остаток 0)
10 : 2 = 5 (остаток 0)
5 : 2 = 2 (остаток 1)
2 : 2 = 1 (остаток 0)
Теперь выписываем последний результат деления (у нас это 1) и после него все остатки в обратном порядке: 0 1 0 0 1 1
Получается число 1010011
Проверяем:
function sum(i, n: <em>integer</em>): <em>boolean</em>;
var
a, b: <em>integer</em>;
begin
a := i;
repeat
b := b + a mod 10;
a := a div 10;
until (a = 0);
sum := (b = n);
end;
var
n, i, k: <em>integer</em>;
begin
readln(n, k);
for i := 1 to k do
if sum(i, n) then
writeln(i);
end.
1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
end.
Вытащи батарею и снова вставь,потом поставь на зарядку,минут 10 пусть подзарядится и снова включи