Регистрация
OToMCTuTEL
24.02.2023 07:23
Информатика
Есть ответ 👍

1.вводятся 4 числа целого типа : a b c d .определить наибольшее среди них. 2.последовательно вводятся n целых чисел .найти сумму всех отрицательных среди них.

264
464
Посмотреть ответы 2

Ответы на вопрос:

lizench
lizench
4,7(64 оценок)
1. var a,b,c,d: integer; begin read (a,b,c,d); begin if (a> b) and (a> c)and (a> d) then writeln ('большее - ',a); if (b> a) and (b> c)and (b> d) then writeln ('большее - ',b); if (c> a) and (c> b)and (c> d) then writeln ('большее - ',c); if (d> a) and (d> b)and (d> c) then writeln ('большее - ',d); if (a=b) and (a=c)and (a=d)and (b=c) and (b=d) and (c=d) then writeln ('все числа равны'); end; end.
LikiMikhoelis
LikiMikhoelis
4,6(47 оценок)
Телевизор,радио,интернет.

Популярно: Информатика