Нужно написать программу.введите с клавиатуры 2 числа а и в,если числа не равны,то замените каждое из них на 0 и выведите результатом на экран.если они равны,то найдите и выведите удвоенную сумму этих чисел
287
385
Ответы на вопрос:
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.
Популярно: Информатика
-
frautatyana2009.02.2023 13:01
-
vadimfroloww19.05.2023 09:57
-
ыллылыов18.04.2023 03:44
-
vityadmitriev224.07.2020 05:57
-
ТуристАртемий12.07.2021 10:24
-
belkairi18.03.2021 17:21
-
ananaaaas1125.04.2022 08:04
-
ащиза01.11.2021 22:06
-
shipicinaolga3616.01.2022 23:19
-
30Космос0319.05.2022 00:29