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.
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
Популярно: Информатика
-
vovalomov0008.07.2022 07:45
-
TASHER228YMM06.04.2023 15:40
-
evi02072007113.04.2021 19:49
-
okda220.06.2022 22:00
-
Roblox201726.08.2020 23:12
-
Khlana3020.05.2020 17:39
-
genЕsis23.12.2022 23:06
-
vika03062007114.01.2022 22:53
-
nigap18.05.2022 09:18
-
kalmanbaevarrr11.01.2022 08:40