Круги Эйлера — геометрическая схема, с помощью которой можно изобразить отношения между подмножествами
Может быть мобильный телефон.
<em>Как говорится, это вам не С++ - тут все очень быстро и коротко ))))
// PascalABC.NET 3.3, сборка 1531 от 30.08.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var L:=new List<(string,real)>;
// это не решение задачи, это ввод данных
Writeln('Введите в каждой строке фамилию, пробел, время');
var i:=1;
repeat
var s:=ReadlnString(i+': ');
if s[1]='*' then break;
var w:=s.ToWords;
L.Add(Rec(w[0],real.Parse(w[1])));
i+=1;
until false;
// а теперь само решение
Writeln(L.MinBy(x->x[1]))
end.
<u>Пример</u>
Введите в каждой строке фамилию, пробел, время
1: Иванов 10.3
2: Петров 9.9
3: Уточкин 10.1
4: *
(Петров,9.9)
Program klas;
uses crt;
var
n,p,i,r:integer;
begin
writeln('Kolichestvo 11 klassov :');
read(n);
for i:=1 to n do
begin
writeln('Vvedite kol-vo chelovek v ',i);
read(p);
r:=r+p;
end;
Writeln('Vsego v ',n,' klassah ',r,' chelovek');
end.
Var name, verb, abjective, noun, adverb: string;
begin
write('Введите ваше имя: ');
readln(name);
write('Хорошо, ', name, ', а теперь введите любое существительное: ');
readln(noun);
write('А теперь прилагательное: ');
readln(abjective);
write(name, ', введите наречие: ');
readln(adverb);
write('И последнее слово - глагол: ');
readln(verb);
writeln;
writeln(abjective, ' летом ', noun, ' ', adverb, ' ', verb, ' около речки.' );
<span>end.</span>