begin
var s := ReadlnString('Введите строку:');
for var i := 1 to s.Length do
case s[i] of
'.': s[i] := '0';
'X', 'Х': s[i] := '1'
end;
Println('Двоичный код:', s);
end.
===== PascalABC.NET =====
#!/usr/bin/env python
# coding: utf-8
"""Определение типа треугольника по сторонам.
Python 2.X.
"""
msg = 'Введите стороны треугольника: '
input = raw_input(msg).split()
try:
a, b, c = [float(i) for i in input]
except ValueError:
print('Введены не числовые значения! Выход...')
quit()
if (a >= b + c or
b >= a + c or
c >= a + b):
print('Не', end=' ')
elif a ** 2 + b ** 2 == c ** 2:
print('Прямоугольный', end=' ')
elif (a ** 2 + b ** 2 > c ** 2 and
a ** 2 + c ** 2 > b ** 2 and
c ** 2 + b ** 2 > a ** 2):
print('Остроугольный', end=' ')
else:
print('Тупоугольный', end=' ')
print('треугольник')
Сущ.-кошка
несущ.-дерево,машина, яблоко
Як я маю тобі це показати на блокноті, якщо це все треба робити на копі?