Ответ:
Можно так, через списки.
Объяснение:
a = int(input("Введите 1 число: "))
b = int(input("Введите 2 число: "))
c = []
d =[]
e = []
for i in range(a, b):
c.append(i)
for i in c:
if i % 7 == 0:
d.append(i)
if i % 5 == 0:
e.append(i)
print(c)
c.reverse()
print(c)
print(d)
print(e)
А можно так:
a = int(input("Введите 1 число: "))
b = int(input("Введите 2 число: "))
for i in range(a, b):
print(i, end=' ')
print()
for i in range(b-1, a-1, -1):
print(i, end=' ')
print()
for i in range(a, b):
if i % 7 == 0:
print(i, end=' ')
print()
for i in range(a, b):
if i % 5 == 0:
print(i, end=' ')
Если необходимо сделать, чтобы диапазон включал в себя и первое и второе число, просто увеличьте b на 1, и т.т. для необходимой подстройки диапазона.
#include <iostream>
using namespace std;
int main()
{
freopen("input.txt", "r", stdin);
char a;
while(cin >> a)
{
if(a == '2')
cout << '5';
else
cout << a;
}
fclose(stdin);
return 0;
}
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
procedure СредняяЦифра(Число: int64; var Цифра: integer);
begin
var СтроковоеПредставление := Число.ToString;
var ЧислоРазрядов := СтроковоеПредставление.Length;
var ПозицияЦифры := ЧислоРазрядов div 2 + 1;
Цифра := СтроковоеПредставление[ПозицияЦифры].ToDigit
end;
begin
var ЗаданноеЧисло: int64;
Read(ЗаданноеЧисло);
var ИскомаяЦифра: integer;
СредняяЦифра(ЗаданноеЧисло, ИскомаяЦифра);
ИскомаяЦифра.Println
end.
<h2>Пример</h2><h2>123643523</h2><h2>4 </h2>
<span>1 символ в кодировке Виндовс-1251 = 1 байт.
1536 симв.*1 байт/симв. = 1536 байт.
1536 / 1024 = 1,5кБайт.
</span>
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var s100:=Arr('','сто','двести','триста','четыреста','пятьсот',
'шестьсот','семьсот','восемьсот','девятьсот');
var s10:=Arr('','десять','двадцать','тридцать','сорок','пятьдесят',
'шестьдесят','семьдесят','восемьдесят','девяносто');
var s11:=Arr('','одиннадцать','двенадцать','тринадцать','четырнадцать',
'пятнадцать','шестнадцать','семнадцать','восемнадцать',
'девятнадцать');
var s1:=Arr('','один','два','три','четыре','пять','шесть',
'семь','восемь','девять');
var n:=ReadInteger('Укажите трехзначное натуральное число');
var s:=s100[n div 100];
var n10:=(n div 10) mod 10;
var n1:=n mod 10;
case n10 of
0:if n1>0 then s:=s+' '+s1[n1];
1:if n1=0 then s:=s+' '+s10[1]
else s:=s+' '+s11[n1];
else begin
s:=s+' '+s10[n10];
if n1>0 then s:=s+' '+s1[n1]
end
end;
Writeln(s)
end.