Var a: array [1 .. 10] of integer; i, Count, C, tmpLast, tmpFirst: integer; begin write('Введите число C: '); readln(C); writeln; for i := 1 to 10 do begin write('a[', i, '] = '); readln(a[i]); if a[i] = C then begin Count := Count + 1; tmpLast := i; end; end; writeln; if (Count = 0) then writeln('В массиве нет числа равное С') else begin writeln('В массиве нашлось число, равное С'); if (Count = 1) then writeln('Первое и единственное число в позиции a[', tmpLast, ']') else begin i := 0; repeat i := i + 1; tmpFirst := i; until (a[i] = C); writeln('Первое такое число a[', tmpFirst, ']'); writeln('Последнее такое число a[', tmpLast, ']'); end; end; readln; end.
//Pascal var s, s1, max: string; begin writeln('Введите !exit для выхода.'); repeat write('Введите строку: '); readln(s); if s <> '!exit' then begin s := s + ' '; // max:=''; while Pos(' ', s) > 0 do begin s1 := Copy(s, 1, Pos(' ', s) - 1); Delete(s, 1, Pos(' ', s)); if Length(s1) > Length(max) then max := s1; end; end; until s = '!exit'; writeln('Самое длинное слово среди всех строк = ', max); writeln('Кол-во букв: ', Length(max)); readln; end.
Пример: Введите !exit для выхода. Введите строку: test Введите строку: testtest Введите строку: testtesttest Введите строку: 123 Введите строку: 1234 Введите строку: 12345 Введите строку: !exit Самое длинное слово среди всех строк = testtesttest Кол-во букв: 12
