Program faceyourseif; var x,k,i: integer; g: boolean; begin; x : = random(100); writeln(x); writeln('компьер загадал число от 0 до 100'); writeln('попробуйте его угадать'); repeat writeln('введите число'); read(k); if k > x then writeln('не угадали! загаданное число меньше'); if k < x then writeln('не угадали! загаданное число больше'); if k = x then begin; writeln('поздравляю,вы угадали! '); g: =true; end; i: =i+1; until g or (i=3); end.
bellaalya13862
09.11.2020
Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin // структура строки // день время канал вид название(возможно, многословное) // цель: удалив "канал" (третье слово), найти строки var ms: =readalllines('tv.txt'); ms.printlines; // чтобы было понятно содержимое файла writeln; var d: =ms.groupby(s-> (s.towords[: 2]+s.towords[3: ]).joinintostring(' ')) .select(t-> (t.key,t.(t-> t[1]> 1).select(t-> t[0]); if d.count=0 then writeln('искомые передачи отсутствуют') else foreach var s in d do begin var key: =s.towords.take(2).joinintostring; ms.where(t-> t.towords.take(2).joinintostring=key).printlines; writeln end end. пример понедельник 09: 00 первый новости новости на первом суббота 19: 40 первый фильм кин-дза-дза! среда первый 07: 15 нтв мультфильм трое из простоквашино четверг 19: 40 первый фильм кин-дза-дза! вторник 09: 00 первый новости новости на первом понедельник 12: 00 первый новости новости на первом пятница 16: 40 россия-1 мультфильм трое из простоквашино суббота 19: 40 россия-1 фильм кин-дза-дза! среда 09: 00 первый новости новости на первом четверг 09: 00 первый новости новости на первом суббота 19: 40 нтв фильм кин-дза-дза! суббота 19: 40 первый фильм кин-дза-дза! суббота 19: 40 россия-1 фильм кин-дза-дза! суббота 19: 40 нтв фильм кин-дза-дза!
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
5. в чем состоит различие терминов "объект" и "область"? пример! скопированные ответы из интернета не принимаю и не засчитываю как