нужно написать программу.введите с клавиатуры 2 числа а и в,если числа не равны,то замените каждое из них на 0 и выведите результатом на экран.если они
10-11 класс
|
равны,то найдите и выведите удвоенную сумму этих чисел
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.
Если все правильно, отметь решение как лучшее)
Другие вопросы из категории
а) Определяет коды двух введённых с клавиатуры символов;
б)Выполняет операцию сцепления трёх введённых с клавиатуры символов;
на Pascal
опишите процесс создания теста в world
Читайте также
результаты на экран. Если они равны, то найдите и выведите удвоенную сумму этих чисел.
выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.
каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.
Проверить истинность высказывания: «Ладья за один ход может перейти с одного поля на другое». 2) Дано трехзначное число. Проверить истинность высказывания: «Все цифры данного числа различны». 3)Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу