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