Var a,b,c:integer;
begin
writeln('Введите три числа:');
readln(a,b,c);
if (a=b)and(b=c)
then writeln('Треугольник равносторонний')
else writeln('Треугольник не равносторонний (а может и не треугольник)');
end.
Пример:
Введите три числа:
5 5 5
Треугольник равносторонний
Не понял по поводу "7 столбиков". Потому, что алгоритм заполняет массив квадратами чисел от 1 до 10. То-есть на выходе вы получаете последовательность:
1
4
9
16
...
81
100
На языке программирования это может выглядеть так:
//Pascal
const n = 10;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
a[i]:=i*i
writeln(a[i]);
end.
Запомните на будущее:
параллелограмм - обозначает ввод-вывод
прямоугольник - операции
овалы- начало/конец
ромб сплюснутый - условие
ромб с продолговатыми сторонами (похож на обозначающиеся знаки в древности, сделанные с помощью дерева) - цикл
ЕСЛИ вам нужно будет написать данную программу, то не забудьте правильно указать скобки "((5-x)y)/3".
<span>If a>b
Then begin с:=1; d:=2; end
Else begin c:=3; d:=4; end;</span>
Алгоритм Линейный Потому-что Действие идет один за другим и отсуствует разделения на действия