Составить программу на паскале: ) имеется четыре a,b,c,d произвольных числа.эвм должна ответить на вопрос: правда ли что первое число самое большое ,а последнее самое маленькое? ответ эвм должна вывести в виде текста-"правда"
или "неправда"

мам65 мам65    2   02.03.2019 16:20    3

Ответы
hellohelloschool hellohelloschool  23.05.2020 22:15

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика