Написать программу НА ПИТОНЕ, которая будет выполнять следующие шаги: 1. В цикле №1 увеличивать значение переменной x в диапазоне от 1 до 9

2. Внутри цикла №1:

1) Устанавливать значение 1 для переменной y (y = 0)

2) Запускать цикл №2, в рамках которого:

A) Увеличивать значение y в диапазоне от 1 до 9

B) Выводить на экран произведение x и y (x * y) без перехода на следующую строку, вместо перехода на следующую строку после x * y должна выводиться на экран табуляция (“\t”) (print(x * y, end=”\t”)

3) Производить переход на следующую строку с пустого print()

var

a,b: integer;

begin

write('введите в одной строке два целых числа и нажмите < enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else 

if a> b then writeln(a,' больше')

else writeln(b,' больше')

end.

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

конечно .pas! простой вопрос!

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.