На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.
GraphABC:
uses GrathABC;
var b: picture;
begin
b:= Picture.Create('1.png');
...
end.
Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.
Примерно это должно выглядеть так:
procedure OnKeyPress(key: integer);
begin
if key = 2 then b.Draw(10, 10);
end;
Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).
Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;
Объяснение:
На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.
GraphABC:
uses GrathABC;
var b: picture;
begin
b:= Picture.Create('1.png');
...
end.
Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.
Примерно это должно выглядеть так:
procedure OnKeyPress(key: integer);
begin
if key = 2 then b.Draw(10, 10);
end;
Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).
Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;
1)
def smm_numbers(x):
sm = 0
sm_num = 0
for _ in x:
sm += int(_)
for j in range(2, 10):
j = str(j * int(x))
for p in j:
sm_num += int(p)
if sm_num != sm:
return False
sm_num = 0
return True
a, b = map(int, input().split())
count = 0
for i in range(a, b + 1):
if smm_numbers(str(i)):
print(i)
count += 1
if count == 0:
print(0)
2)
def fib(n):
if n == 0 or n == 1:
return 1
else:
return fib(n - 1) + fib(n - 2)
for i in range(int(input())):
print(fib(i), end=' ')
3)
alphabet = ''
def now_system_10(x):
global new_system
znak = '+'
if x < 0:
x = abs(x)
znak = '-'
new_x = ''
lst = []
while x >= new_system or lst == []:
if 9 < x % new_system:
if x % new_system < 20:
lst += [alphabet[int(str(x % new_system)[1])]]
elif x % new_system < 30:
lst += [alphabet[int('1' + str(x % new_system)[1])]]
else:
lst += [alphabet[int('2' + str(x % new_system)[1])]]
else:
lst += [x % new_system]
x //= new_system
if x != 0:
lst += [x]
lst.reverse()
if znak == '-':
new_x += '-'
for j in lst:
new_x += str(j)
return new_x
num, new_system = map(int, input().split())
print(now_system_10(num))