var i, n: integer;
begin
read(n);
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
end.
В одном байте 8 бит, в одном кбайте 1024 байт значит 1 4096
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (x,y):=ReadReal2('Введите координаты точки через пробел:');
Writeln((x>2) and (x*x+y*y<36))
end.
<u>Примеры</u>
Введите координаты точки через пробел: 5 3.5
False
Введите координты точки через пробел: 5 3
True
Насчет третьего - под б) нетривиальный метод(подстановка), но я уверен, что он правильный.