С использованием?)
var
x,y,z:integer;
begin
write('x= '); readln(x);
write('y= '); readln(y);
z:=x;
x:=y;
y:=z;
writeln;
writeln('x= ',x); write('y= ',y);
readln;
end.
1) Начало
2) Ввод a, b, c
3) Если (a = -b) или (a = -c) или (b = -c), то ответ ДА. Иначе ответ НЕТ.
4) Вывод ответа
5) Конец
2-б
3-а
ббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббб
Составить алгоритм сложения двух целых чисел B и N, вводимых с клавиатуры. Результат сложения записать в виде переменной P. По данному алгоритму написать программу в Паскале.
Алгоритм
1)алг сложение
цел B,N,P
нач
ввод B
ввод N
P:=B+N
вывод P
кон
Программа в Паскале
1)program summa;
var
B,N,P:integer;
begin
readln(B);
readln(N);
P:=B+N;
writeln(P);
end.