Program zadanie;
Var n1,n2,a,b:integer;
Begin
Writeln('Ввести два 3-х значных целых числа');
Readln(n1,n2);
a:=(n1 mod 100) mod 10;
b:=(n2 mod 100) mod 10;
a:=a+b;
b:=a-b;
a:=a-b;
Writeln('N1=',n1 div 10,a);
Writeln('N2=',n2 div 10,b);
Writeln('Сумма этих чисел=',(n1 div 10)+(n2 div 10)+((a+b) div 10),(a+b) mod 10);
<span>End.</span>
Program Turbo;
uses Crt;
var
a,b,r:real;
begin
Write('Введите a и b через пробел: ');
Readln(a,b);
r:=a*b;
Writeln('Произведение равно ',r);
ReadKey
end.
"акинукыл" - Каникулы
"евнса" - Весна
"етеливроз" - Телевизор
;)
Program QuadraticEquation;
Var a, b, c, d, x1, x2:real;
Begin
Writeln('vvedite a, b, c');
Readln(a,b,c);
If A=0 then
Writeln('algoritm ne primenim');
D:=b*b-4*a*c;
If D<0 then
Writeln('deystvit resheniy net');
If D=0 then
Begin
x1:=-b/(2*a);
Writeln('x1=',x1);
End
Else
Begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
Writeln('x1=',x1, 'x2=', x2);
End;
end.
Держи!)