Паскаль
var a,b,c,d:integer; x,y:real;
begin
writeln(a);
writeln(b);
writeln(c);
readln(a);
readln(b);
readln(c);
d:=b*b-4*a*c;
if d>0 then begin
x:=(-b+sqrt(d))/(2*a);
y:=(-b-sqrt(d))/(2*a);
writeln(x,y);
end;
if d=0 then begin
x:=-b/2*a;
writeln(x);
end;
if d<0 then begin
writeln('Уравнение не имеет корней')
end;
end.
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
int biggest(int, int); //Функция нахождения большего из 2-ух чисел
int main()
{<span>
int a, b, c;
</span>
<span> cout << "Enter the three numbers: ";
</span><span> cin >> a >> b >> c;
</span>
cout << "Biggest: " << biggest(biggest(a, b), c) << endl;
cin.get();
return 0;
}
int biggest(int x, int y)
{<span>
</span> if(x > y)<span>
</span> {<span>
</span> return x;
}<span>
</span> else<span>
</span> return y;
}
Var a,b,c,s,n,i:integer;
begin
readln(n);
b:=1;
for i:=1 to n do
begin
c:=b+a;
s:=s+c;
a:=b;
b:=c;
end;
writeln('s=',s);
<span>end.</span>
VAR
A,B,C,D:integer;
Begin
WriteLn('введите числа A,B,C,D);
ReadLn(A,B,C,D);
if (A=B) and (B=C) and (C=D) then
WriteLn('все числа равны');
else
if (A=B) or (B=C) or (C=D) or (A=D) then
Begin
Write ('только');
WritweLn('два три числа равны');
end
else
WriteLn('все числа разные');
end.