Var a,b,c:integer; //стороны
begin
writeln('Введите длины сторон:');
read(a,b,c);
if (a=b)and(a=c)and(b=c) then
writeln('Треугольник равносторонний')
else
writeln('Треугольник не равносторонний');
readln;
end.
Program table;
var
f, i: integer;
k: real;
begin
for i := 1 to 20 do
writeln(i, ' (фунт) = ', (i * 0.4):1:3, ' (кг)');
end.
Сейчас вычисления совсем другие, не такие как раньше. Вычисляют погоду, ядерные реакции, движение планет. Но и задачи на компьютеры возлагают разные.Раньше не было персональных компьютеров. А сейчас они есть в довесок к супер компьютерам. Некогда раньше была принята стратегия популизировать ПК из военной сферы и области образования в область персонального использования. Поэтому сейчас пользоваться компьютером стало легче. Этому даже учат в школе. Все развивается. И растут области применения ПК.
Ну вот в принципе можно такую схему
#Python 3.6.1
def find_double(items):
L = len(items)-1
for i in range(L):
for j in range(L-i):
if items[i] == items[j+i+1]:
return i
return L+1
print("Введите элементы через пробел:")
a = input().split()
print(a)
print(find_double(a))