1)составьте программу, выводящую на экран квадраты чисел от n до m. числа n, m вводятся с клавиатуры. 2)написать программу, подсчитывающую количество четных и нечетных цифр в числе. 3)задано натуральное число n. найти количество натуральных чисел, не превосходящих n и не делящихся ни на одно из чисел 2,3,5

все коды написаны на языке python

1.

n = int(

m = int(

for i in range(n, m + 1):

print(i ** 2)

2.

n = str(

nezet = 0

zet = 0

for i in range(0, len(n)):

if int(n[i]) % 2 == 0:

zet += 1

else:

nezet += 1

print("кол-во нечетных чисел в числе", n, "равно", nezet)

print("кол-во четных чисел в числе", n, "равно", zet)

3.

n = int(

kolvo = 0

for i in range(1, n + 1):

if i % 2 ! = 0 and i % 3 ! = 0 and i % 5 ! = 0:

kolvo += 1

print(kolvo)

program raf105;

var n,m,i: integer;

begin

writeln('введите диапазон чисел (2 числа через пробел) которые нужно возвести в квадрат');

readln(n,m);

writeln('вывод: ');

for i: =n to m do

  writeln(i**2)

end.

program raf105;

var a,b,kol1,kol2: integer;

begin

write('введите число: ');

readln(a);

while a < > 0 do

begin

  b: = a mod 10;

  if b< > 0

    then if (b mod 2)=0

      then kol1+= 1

      else kol2+= 1;

  a: = a div 10;

end;

writeln('в числе ',kol1,' чётных и ',kol2,' нечётных цифр');

end.

program raf105;

var n,i,kol: integer;

begin

write('введите n: ');

readln(n);

for i: =1 to n-1 do

  if ((i mod 2)< > 0) and ((i mod 3)< > 0) and ((i mod 5)< > 0)

    then kol+=1;

writeln('вывод: ',kol);

end.

язык pascalabc