Паскаль:с Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. Если произведение этих чисел положительно, то выведите утроенное значение каждого числа. Если сумма первого и треть...
Паскаль:с Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. Если произведение этих чисел положительно, то выведите утроенное значение каждого числа. Если сумма первого и третьего чисел отрицательна, то выведите эти два числа и их сумму. если выполняются одновременно два перечисленных выше условия, то выведите четыре числа без изменения. иначе, выведите сумму этих четырех чисел, уменьшенную в два раза. составьте соответствующие отладочные примеры и проверьте работу каждой программы.
Гость
Ответ(ы) на вопрос:
Гостьprogram zadacha_1; var n1,n2,n3,n4:integer //Здесь храним значение 4 чисел begin writeln('Введи 4 числа'); readln(n1,n2,n3,n4); if (n1*n2*n3*n4)>0 then writeln(n1*3,' ',n2*3,' ',n3*3,' ',n4*4) else if (n1+n3)<0 then writeln(n1,' ',n3,' их сумма равна ',n1+n3) else if ((n1*n2*n3*n4)>0 and (n1+n3)<0) then writeln(n1,' ',n2,' ',n3,' ',n4) else writeln((n1+n2+n3+n4)div 2); end.
Не нашли ответ?
Похожие вопросы