var
mas:array[1..3] of integer;
i,min:integer;
begin
for i:=1 to 3 do
begin
min:=maxint;
writeln ( 'Введите возраст ',i,'-ого участника');
readln (mas[i]);
if mas[i]<min then min:=mas[i];
end;
writeln (min);
end.
Var
a,b,j,v,c:string;
q: integer;
begin
writeln('Напишите своё имя');
readln(a);
writeln('Напишите дату рождения, год целиком');
readln(q);
q:=2016-q;
write(' - Привет,',a,'. ');
if q<7 then begin writeln('Ты уже пошел в детский сад?'); readln (' - ',b);
if (b='Да') or (b='да') then writeln ('Удачи!') else writeln (' - Пойди в Детский сад, там тебя обучат азам жизни. Удачи') end; else if (7<q) and (q<17) then begin writln (' - Ты пошёл в школу?'); readln (' - ',c); if (c='Да') or (c='да') then begin writeln (' - В какую школу ты пошёл?'); readln (' - ',v); writeln (' - В каком ты классе?'); readln (' - ',j);end;
end.
Так можно продолжать бесконечно
Я думаю В и Г. В команде есть новички и есть те, кто плывет не первый раз. Так как среди пассажиров есть новички, то они не знают о подсказке
1)
//PascalABC.NET v3.3 1633
begin
for var i:=3 to 10 do
writeln(i+'^3 = '+Power(i, 3));
end.
2)
//PascalABC.NET v3.3 1633
begin
for var i:=12 to 25 do
if (i mod 6 = 2) or (i mod 6 = 5) then
writeln(i);
end.