Паскаль: с для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. если произведение этих чисел положительно, то выведите утроенное значение каждого числа. если сумма первого и третьего чисел отрицательна, то выведите эти два числа и их сумму. если выполняются одновременно два перечисленных выше условия, то выведите четыре числа без изменения. иначе, выведите сумму этих четырех чисел, уменьшенную в два раза. составьте соответствующие отладочные примеры и проверьте работу каждой программы.
severin4568
3
20.05.2019 18:10
1
Другие вопросы по теме Информатика
katenok1706
28.05.2021 22:31
liana2015
18.05.2019 08:10
palechov01
19.02.2021 09:41
олеся14111
19.02.2021 09:40
Ytkakiki
19.02.2021 09:40
Nikol3001
19.02.2021 09:39
хочузнать2018
11.09.2019 17:20
nikitashilo
15.07.2019 03:20
Artemij08
15.07.2019 03:20
sofia060506
15.07.2019 03:20
Популярные вопросы
- Лодка плыла 1,8 по течению и 2,6против теч. какой путь проплыла за всё время...
3 - Вставьте в окошко такое число,чтобы равенство 5*)=70 20...
3 - Яз сравните предложения каждой пары .сделайте вывод о том какие смысловые...
3 - Всаду собрали 54 кг вишни из 36 кг вишни сварили варенье а остальное вишню...
3 - Скорость передачи данных модемом составляет 56000 бит/с. какое максимальное...
3 - Моли 8 класс . 1)определите массу серы, вступившую в реакцию с натрием,...
2 - Разложите многочлен на множители: 8a^3-4a^2-2a+1...
2 - Слова коров пишица через о или а слова класс пишица с 2 буквами с...
3 - Вкаком предложении оба выделенных слова пишутся слитно? выберите один ответ:...
3 - Какое личное местоимение читается одинаково с права - на лево и с лева -...
3
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.