М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
fg4ne
fg4ne
18.11.2020 22:12 •  Информатика

Вpascalabc напишите программу, которая выводит все простые числа в диапазоне от k до n ( 2 ≤ k ≤ n ≤ 100000 ), у которых первая и последняя цифры десятичной записи одинаковые. входные данные входная строка содержит два натуральных числа, разделённые пробелом, k и n ( 2 ≤ k ≤ n ≤ 100000 ). выходные данные программа должна вывести все простые числа, у которых одинаковые первая и последняя цифры десятичной записи, в диапазоне от k до n в одну строку, разделив их пробелами. если таких чисел нет, нужно вывести число 0. примеры входные данные 100 200 выходные данные 101 131 151 181 191 входные данные 20 30 выходные данные 0

👇
Ответ:
stas289
stas289
18.11.2020
Program n1;
var k,n,i: longint;
co: byte;
function simply(a: longint ):boolean;
var i: longint;
begin
simply:=true;
for i:=2 to trunc(sqrt(a)) do begin if a mod i=0 then begin
simply:=false;
break
end
end
end;
function cr(a: longint): boolean;
var n: longint;
begin
n:=a;
cr:=false;
repeat
n:=n div 10;
until n mod 10 =n;
if n=(a mod 10) then
begin
cr:=true;
end;
end;
begin
readln(k,n);
for i:=k to n do if simply(i) then begin if (i=2) or (i=3) or (i=5) or (i=7) or cr(i) then
begin
write(i,' ');
co:=1;
end
end;
if co=0 then write(0);
end.
4,6(22 оценок)
Открыть все ответы
Ответ:
dmitrii1205
dmitrii1205
18.11.2020

ответ: Я так понимаю, никто не давать ответы на такие вопросы :D

1.

#include <iostream>

using namespace std;

int main()

{

   long long i = 35, j = 31, sum = 0;

   while(i)

   {

       if(j % 2)

       {

           sum += j;

           i--;

       }

       j++;

   }

   cout << sum << endl;

   return 0;

}

ответ: 2275

2.

#include <iostream>

using namespace std;

int main()

{

   unsigned long long i = 35, j = 38, sum = 1;

   while(i--)

   {

       sum *= j;

       j++;

   }

   cout << sum << endl;

   return 0;

}

ответ: 9776069387944460288

3.

#include <iostream>

using namespace std;

int main()

{

   long long n, i = 1, n1, ans = 0;

   cin >> n;

   n1 = n/2;

   while(i <= n1)

   {

       if(!(n % i))

           ans++;

       i++;

   }

   cout << ans << endl;

   return 0;

}

4.

#include <iostream>

using namespace std;

int main()

{

   long long m, k, ans = 0;

   cin >> m >> k;

   for(; m <= k; m++)

       if(m % 5 == 0)

       ans++;

   cout << ans << endl;

   return 0;

}

Объяснение:

4,8(7 оценок)
Ответ:
artgensh
artgensh
18.11.2020

# Задание 5 Без использование ген списка

list = [-23, -15, -10, -4, 3, 7, 12, 35, 47, 88]

list2 = []

for i in list:

   if i < 0:

       list2.append(i)

print(list2)

# Задание 5 С использованием ген списка

list = []

list2 = []

for i in range(-50,50, 10):

   list.append(i)

   if i < 0:

       list2.append(i)

print(list2)

# Заданиче 6 без использование ген списка

a = [1, 2, 3, 5, 8, 13, 21, 34, 55]

b = []

k = int(input('Введите индекс k (от 0 до 9): '))

for i in a:

   if i != a[k]:

       b.append(i)

print(b)

# Заданиче 6 c использованием ген списка

a = []

b = []

k = int(input('Введите индекс k (от 0 до 9): '))

for i in range(10):

   a.append(i)

print(a)

for x in a:

   if x != a[k]:

       b.append(x)

print(b)

Объяснение:

4,5(53 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ