составить программу на паскале:) Имеется четыре A,B,C,D произвольных числа.ЭВМ должна ответить на вопрос: Правда ли что первое число самое большое ,а
10-11 класс
|
последнее самое маленькое? Ответ ЭВМ должна вывести в виде текста-"Правда" или "Неправда"
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. Определите
произведение чисел, которые делятся на 5
В зависимости от того введена ли открытая скобка или закрытая, напечатать "открытая круглая скобка" или "закрытая фигурная скобка".(учитывать круглые , квадратные,фигурные скобки)
Читайте также
блок-схему и программу решения задачи
остальных" c циклами while repeat
задание: дана матрица А(N, N). Составить программу подсчета количества положительных элементов, расположенных выше главной диагонали
Составить программу на паскале.