Нужно написать программу.введите с клавиатуры 2 числа а и в,если числа не равны,то замените каждое из них на 0 и выведите результатом на экран.если они равны,то найдите и выведите удвоенную сумму этих чисел
var a, b: real; //Инициализируем 2 действительных переменных
begin writeln('Введите 2 числа'); readln(a, b); //Вводим 2 числа if a <> b then {Если числа не равны, то присваиваем переменным нули и печатаем их, иначе печатаем удвоенную сумму этих чисел} begin a:= 0; b:= 0; writeln('a = ', a, ', b = ', b); end else writeln('2 * (', a, ' + ', b, ') = ', 2 * (a + b)); end.
var a,b:integer;
begin
readln(a,b);
if a<>b then begin a:=0; b:=0; writeln(a,' ',b); end else writeln(2*(a+b));
end.
var
a, b: real; //Инициализируем 2 действительных переменных
begin
writeln('Введите 2 числа');
readln(a, b); //Вводим 2 числа
if a <> b then {Если числа не равны, то присваиваем переменным нули и печатаем их, иначе печатаем удвоенную сумму этих чисел}
begin
a:= 0;
b:= 0;
writeln('a = ', a, ', b = ', b);
end
else writeln('2 * (', a, ' + ', b, ') = ', 2 * (a + b));
end.
Если все правильно, отметь решение как лучшее)