Составить программу на паскале: ) имеется четыре a,b,c,d произвольных числа.эвм должна ответить на вопрос: правда ли что первое число самое большое ,а последнее самое маленькое? ответ эвм должна вывести в виде текста-"правда" или "неправда"
program mdd; uses crt; var A,B,C,D:longint; begin clrscr; ReADLN(A,B,C,D); IF (A>B) AND (A>C) AND (A>D) AND (D<A) AND (D<C) AND (D<B) THeN WRITeLN('Правда') eLSe WRITeLN(''Неправда); ReADKeY; eND.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
