ПОМОГИТЕ, ПОЖАЛУЙСТА !!! 1)Составьте программу, выводящую ** экран квадраты чисел от n до...

Question

ПОМОГИТЕ, ПОЖАЛУЙСТА !!! 1)Составьте программу, выводящую на экран квадраты чисел от n до m. Числа n, m вводятся с клавиатуры. 2)Написать программу, подсчитывающую количество четных и нечетных цифр в числе. 3)Задано натуральное число N. Найти количество натуральных чисел, не превосходящих N и не делящихся ни на одно из чисел 2,3,5

Comments

В паскале только

Answer 1

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

1.

n = int(input())

m = int(input())

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

print(i ** 2)

2.

n = str(input())

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(input())

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)

Comments

А Паскаль?

Answer 2

1.                                                                        

program raf105;

var n,m,i:integer;

begin

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

readln(n,m);

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

for i:=n to m do

 writeln(i**2)

end.

2.                                                                        

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.

3.                                                                        

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