Напешите программу нахождения расстояния при равномернном движении тела. скорость и время задать с клавиатуры.

//pascal abc.net v3.1 сборка 1219 var   t,v: integer; begin   read(t,v);   writeln(t*v); end. пример ввода: 30 20 пример вывода: 600

1,5 Кбайт = 1,5*1024 байт = 1536 байт
128 бит = 128/8 байт = 16 байт
1536+16 = 1552 байта

На питоне:
s1 = input("Bвeдитe 1 строку: ")
s2= input("Bвeдитe 2 строку: ")
if s1.find(s2)>=0: print(s2+" входит в "+s1)
else: print(s2+" не входит в "+s1)

Пример 1:
Bвeдитe 1 строку:
abcdefg
Bвeдитe 2 строку:
cde
cde входит в abcdefg

Пример 2:
Bвeдитe 1 строку:
abcdefg
Bвeдитe 2 строку:
ac
ac не входит в abcdefg

Цикл for k := 3 to 9 do выполняется 7 раз (для I = 3; 4; 5; 6; 7; 8; 9), те. нужно к переменной s 7 раз прибавить число 9, т.е. s = 7 · 9 = 63