В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
varenik506
varenik506
02.01.2023 13:39 •  Информатика

Паскаль: с для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. если произведение этих чисел положительно, то выведите утроенное значение каждого числа. если сумма первого и третьего чисел отрицательна, то выведите эти два числа и их сумму. если выполняются одновременно два перечисленных выше условия, то выведите четыре числа без изменения. иначе, выведите сумму этих четырех чисел, уменьшенную в два раза. составьте соответствующие отладочные примеры и проверьте работу каждой программы.

Показать ответ
Ответ:
аня200414
аня200414
14.06.2020 05:04

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.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота