Program n; var a, b, i: integer; begin b:= 0; for i:=1 to 4 do begin readln(a); if a > b then b:=a; end; writeln('Наибольшее: ' + b); end.
Как это работает? Объявляются три целочисленные (interger) переменные: a - вводимое число b - самое большое число i - счётчик цикла После запуска программы переменной b присваивается значение 0 (чтобы было с чем сравнивать при первом значении) Запускается цикл for с счётчиком i Каждый раз цикл просит ввести пользователя число (а) Дальше проверяется условие, если введённое число a больше числа, которое записано как самое большое (if a>b) Если ведённое число больше, чем самое большое, то переменной b присваивается значение a И так пока цикл не закончится Затем выводится переменная b, в которой хранится самое большое из введённых чисел.
дом 1 2 3 4 5 цвет- жёлтый синий красный белый зелёный национальность- норвежец украинец англичанин испанец японец напиток- вода чай молоко сок кофе сигареты-Kool Chesterfield Old-Gold Lucky Strike Parliament животные- лиса лошадь улитки собака зебра№2
№2
Чтобы стакан мог оказаться между сосудами с чаем и молоком, он должен переместиться на место 3 (чашка на место 4), на месте 2 он будет между минеральной водой и еще чем-нибудь.
Таким образом, он будет встанет точно в середине. Из этого можно сделать вывод, что в стакане находится кофе. Молоко из условия задачи, во-первых, рядом со стаканом, во-вторых, рядом с сосудом с квасом. Значит, в кружке находится чай, в чашке – молоко, в кувшине – квас.
Стакан перемещается на третье место, соответственно чашка на четвертое. Теперь известно, что кофе оказалось посередине, т.е. оно в стакане. Справа и слева чай и молоко. Т.е. в кружке либо чай, либо молоко и в чашке тоже. Но известно, что в бутылке минеральная вода, а по соседству с молоком - квас. В чашке - молоко, в кувшине квас, в кружке чай. кофе чай молоко квас минеральная вода бутылка - - - - + кружка + чашка + стакан + - - - - кувшин +
var
a, b, i: integer;
begin
b:= 0;
for i:=1 to 4 do
begin
readln(a);
if a > b then
b:=a;
end;
writeln('Наибольшее: ' + b);
end.
Как это работает?
Объявляются три целочисленные (interger) переменные:
a - вводимое число
b - самое большое число
i - счётчик цикла
После запуска программы переменной b присваивается значение 0 (чтобы было с чем сравнивать при первом значении)
Запускается цикл for с счётчиком i
Каждый раз цикл просит ввести пользователя число (а)
Дальше проверяется условие, если введённое число a больше числа, которое записано как самое большое (if a>b)
Если ведённое число больше, чем самое большое, то переменной b присваивается значение a
И так пока цикл не закончится
Затем выводится переменная b, в которой хранится самое большое из введённых чисел.