Во дворе гуляли четыре подружки, которые очень любили кататься на велосипедах. Все знали, что девочки могут кататься 20, 50, 70, 100 минут. Нина могла кататься не более 20 минут. Оксана каталась меньше Дарьи, а Марина каталась 100 минут. Сопоставьте имена девочек и время.

нина - 20, так как она каталась не более 20 минут

марина - 100, по условию

остается 50 и 70, так как оксана каталась меньше дарьи ->

оксана  - 50

дарья  - 70

Var l: char; i,n,a,k,m,d,q: integer; s: string; label z; begin randomize; writeln ('введите количество паролей'); writeln ('из чего состоят пароли? '); z: writeln ('1 - буквы 2 - цифры 3 - и буквы и цифры'); readln (a); if (a< > 1)and (a< > 2)and (a< > 3)then begin writeln ('неправильный ввод. ввести заново (0 - да / 1 - нет)? '); read (q); if q=0 then goto z else halt; end else begin writeln ('введите количество паролей: '); readln (n); writeln ('введите длину пароля: '); readln (k); writeln ('пароли: '); if a=1 then begin for i: =1 to n do begin for d : = 1 to k do s: =s+chr(random(26)+97); writeln(s); s: =''; end; end; if a=2 then begin for i: =1 to n do begin for d : = 1 to k do s : = s + chr(random(10)+48); writeln(s); s: =''; end; end; if a=3 then begin for i: =1 to n do begin for d : = 1 to k do s : = s + chr(random(26)+97)+chr(random(10)+48); delete(s,k,k); writeln(s); s: =''; end; end; end; end.