Program n1;
var a,b: real;
begin
writeln('программа для решения уравнения вида y=ax+b');
write('a=');
readln(a);
write('b=');
readln(b);
writeln('введенное уравнение: ',a,'x+(',b,')=0');
write('x=',-b/a);
end.
Алгоритм это план работы исполнителя, описание последовательности элементарных действий, которые должен совершить исполнитель. Всякий план или описание есть информация. Следовательно, алгоритм является информационной моделью деятельности исполнителю.
Var N:longint;
Begin
Write('N = ');ReadLn(N);
While N <> 0 do
Begin
Write(N mod 10);
N:=N div 10;
End;
End.
#include <iostream>
using namespace std;
int main()
{
double a, b, c;
cin >> a >> b >> c;
if ((a+b > c) && (a+c > b) && (b+c > a))
{
if (a == b)
if (a == c) cout << "Треугольник равносторонний";
else cout << "Треугольник равнобедренный";
else if ((a == c) || (b == c )) cout << "Треугольник равнобедренный";
else cout << "Треугольник разностронний";
}
else cout << "Невозможно построить треугольник";
return 0;
}
КОБол................................................................