program HelloWorld;
var k:integer;
begin
writeln('Введи сторону');
readln(k);
writeln(k*k)
end.
Простой пример линейного алгоритма таков :
1.Выкопать в земле ямку
2.Опустить в ямку саженец
3.Засыпать ямку с саженцем землей
4.Полить саженец водой
Простой пример циклического алгоритма таков :
1.Смотрю телевизор
2.Уже ночь ?
3(а)Да , то 4.Ложусь спать 3(б)Нет , то 1.Смотрю телевизор
<span>и вновь проверка условия до тех пор пока не настанет ночь
Просто пример </span><span>разветвляющего алгоритма таков :
</span>
1.Я встречу друга ?
2(а).Да ,то 3. Расскажу историю
2(б) Нет ,то *конец алгоритма*
<u>Примеры данных алгоритмов в виде блок-схем ниже</u>
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln(Range(-200,150).Sum)
end.
<u><em>Результат выполнения программы:</em></u>
-8775
Ответ:
Объяснение
import math
x1 = float(input("Введите x1 - "))
y1 = float(input("Введите y1 - "))
x2 = float(input("Введите x2 - "))
y2 = float(input("Введите y2 - "))
L = math.sqrt((x2-x1)**2+(y2-y1)**2)
print("L = " + str(L))