13.333=10.000+3.000+300+3
11100
решение просто на глаз:
1 это - 1
10 это 2
100 это 4
1000 это 8
10000 это 16
так как 4+8+16 = 28
то мы и берем только
100 + 1000 + 10000 = 11100
по другому делаеться так:
28 делим на 2, получаем 14, остаток от деления 0
14 делим на 2, получаем 7, остаток 0
7 делим на 2, берем целую часть 3, остаток 1 (т.е вот так: 3*2+1=7)
3 делим на 2, берем целую часть 1, остаток 1 (т.е вот так: 1*2+1=3)
1 делим на 1, целая часть 0 остаток 1
Теперь берем остатки, и записываем адом наперед 11100
Var x, y: real;
const centerX = 4; centerY = 4; distance = 3;
begin
writeln('Введите координаты точки x, y: ');
read(x);
read(y);
writeln(abs(centerX - x) + abs(centerY - y) <= distance)
end.
Если в компьютер, то сканер.
Program Task;
Const n = 15;
Var a: Array [1..n] of Integer;
i: Integer;
Begin
Randomize;
For i := 1 To n Do
a[i] := Random(30 - 20 + 1) + 20;
WriteLn('Массив:');
For i := 1 To n Do
Write(a[i], ' ');
WriteLn;
For i := 1 To n Do
If a[i] Mod 2 = 1 Then
a[i] := 31;
WriteLn('Результат:');
For i := 1 To n Do
Write(a[i], ' ');
ReadLn;
End.