1.Дано пятизначное число.Найдите разность двух чисел.Первое число равно сумме цифр исходного числа,стоящих на четных местах.Второе число равно сумме цифр,стоящих на нечетных местах. 2.Дано трехзначное число .Выведите на экран новое число,полученное из исходного путем перестановки цифр в обратном порядке. 3.Выведи на экран 8 раз фразу ''Loadind..." 4.Найдите сумму 1+3+5+7+...+37. 5.Найдите произведение 1*2*3*...*n 6.Дано трехзначное число.Найдите произведение их цифр. Python,7 класс

Удивляюсь, как она  у меня заработала)) хаха

program example;
var x,y,z,a,b,c,i,k,l:integer;

begin
writeln ('Введите три числа');
write ('x = '); readln (x);
write ('y = '); readln (y);
write ('z = '); readln (z);

if ((x mod 3) or (x mod 2)) =0
then i:=x else i:=0;
if i<>0 then a:=1;

if ((y mod 3) or (y mod 2)) =0
then k:=y else k:=0;
if k<>0 then b:=1;

if ((z mod 3) or (z mod 2)) =0
then l:=z else l:=0;
if l<>0 then c:=1;

writeln ('Количество четных чисел, делящихся на три, равно ',a+b+c);
writeln ('Сумма четных чисел, делящихся на три, равна ',i+k+l);

end.

program z1; (Начало программы)

var n, s, i, c:integer; (Раздел описания переменных, n(кол-во чисел), s(сумма чисел), i(счетчик), с(число, введенное с клавиатуры))

begin (тело программы)

writeln ('Кол-во чисел?'); (подсказка для пользавателя)

readln (n); (считывание переменной)

s:=0; (обнуляем переменную)

For i:= 1 to n do begin (цикл будет повторяться от 1 до N; т.к в цикле будет несколько действий открываем операторные скобки (begin\end), начало цикла)

writeln ('Введите число'); (подсказка для пользавателя)

readln(c); (считывание переменной)

If c>0 then s:=s+c; (если с>0 тогда к сумме мы прибавляем число) 

end; (конец цикла)

writeln ('Сумма=',s); (подсказка для пользавателя и ответ)

readln(s); (считывание переменной)

readln; (считывание)

end.(конец программы)