Program Bid;
Uses crt;
var a,b,max:integer;
begin
write(' Введите целое число a=');
readln(a);
write(' Введите целое число b=');
readln(b);
if a>=b then max:=a
else max:=b;
writeln('Max=',max);
end.
Задание 2:Program Text;
var x:integer;
begin
write('Введите цифру 1 или любую :');
readln(x);
if x=1 then write(' В а с я')
else write(' П е т я');
end.
Задание 3:Program Text;
var x:integer;
begin
write('Введите цифру 1, 2 или любую :');
readln(x);
if x=1 then write(' В а с я')
else if x=2 then write(' П е т я')
else write('ERROR');
end.
Задание 4:Program MaxFrom3;
begin
writeln('Введите 3 числа: ');
var (a, b, c) := ReadInteger3;
write('Наибольшее число: ', Max(a,b,c));
end.
Данная задача является алгоритмом. Мы должны выстроить последовательность действий так,чтобы не остаться в проигрыше.
Цель: перевезти животных и капусту,так,чтобы никто из них не наведил друг другу. Перевозчик-это исполнитель(объект выполняющий действие)
1)Взять козу,переплыть,высадить.
2)Переплыть, взять волка,переплыть,высадить,взять козу,переплыть высадить.
3) Взять капусту, переплыть, высадить.
4)Переплыть,взять козу, переплыть,высадить.
5) Конец алгоритма(4 пункт является результатом последовательно выполненных действий)
2.256
3. Группа цвета = Изменение цветов
4.Синий