//PascalABC.NET 3.1 сборка 1200
begin
repeat
var n := Random(1000);
if n mod (5 * 7) = 0 then begin
write(n);
Readln;
end
until false;
end.
1. a = 14; b = 42 ( см. вложение 1 )
2. x = 2; y = 5; t = 5 ( см. вложение 2 )
3. a = 3; b = 12 ( см. вложение 3 )
4. x = 42; y = 2 ( см. вложение 4 )
1) Оперативная память
2)Процессор
3)Монитор
4)Аппаратное обеспечение (не уверен)
5)Двоичный код
#Python 3.X
x = int(input())
print(str(x % 1)[2])