begin writeln('Введите возраст призеров:'); readln(a,b,c); if (a < b) and (a < c) then begin max := a; writeln('Самый младший - первый призер, ему ',max,' лет.'); end; if (b < a) and (b < c) then begin max := b; writeln('Самый младший - второй призер, ему ',max,' лет.'); end; if (c < a) and (c < b) then begin max := c; writeln('Самый младший - третий призер, ему ',max,' лет.'); end; end.
1. var s : string или var s : string[30]. 2. к массивам символов. 3. 255 4. char 5. Строки можно присваивать друг другу. Строки можно объединять с операции конкатенации, которая обозначается знаком +. Строки можно сравнивать друг с другом с операций отношения. К отдельному символу строки можно обращаться как к элементу массива символов, например s1[3]. 6. Функция Length (s) возвращает фактическую длину строки s, результат имеет тип byte. Функция Pos (subs, s) ищет вхождение подстроки subs в строку s и возвращает номер первого символа subs в s или нуль, если subs не содержится в s. Функция Concat (s1, s2, ..., sn) возвращает строку, являющуюся слиянием строк s1, s2, ..., sn. Функция Copy (s, start, len) возвращает подстроку длиной len, начинающуюся с позиции start строки s. 7. Процедура Delete (s, start, len) удаляет из строки s, начиная с позиции start, подстроку длиной len. Процедура Insert (subs, s, start) вставляет в строку s подстроку subs, начиная с позиции start. 8. как к элементу массива символов, например s1[3]. 9. Строки равны, если они имеют одинаковую длину и посимвольно эквивалентны. А так как символы "М" и "м" не эквивалентны - строки не равны.
a,b,c,max:integer;
begin
writeln('Введите возраст призеров:');
readln(a,b,c);
if (a < b) and (a < c) then
begin
max := a;
writeln('Самый младший - первый призер, ему ',max,' лет.');
end;
if (b < a) and (b < c) then
begin
max := b;
writeln('Самый младший - второй призер, ему ',max,' лет.');
end;
if (c < a) and (c < b) then
begin
max := c;
writeln('Самый младший - третий призер, ему ',max,' лет.');
end;
end.