. У Кайрата 2 принтера – цветной и черно-белый. Кайрат решил распечатать свой проект, созданный в программе Scratch, на одном из своих принтеров, но появилось сообщение «Выберите принтер»

Тебе нужно было задать во Какая причина появления данного сообщения

1. Программа в одной из современных версий Паскаля:

// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
  var s:=ReadlnString('Исходная строка:');
  Writeln('Результат: ',s.MatchValues('[a-zA-ZА-Яа-яёЁ]').JoinIntoString(''));
end.

Тестовое решение:

Исходная строка: // PascalABC.NET 3.1, сборка 1211 от 31.03.2016
Результат: PascalABCNETсборкаот

2. Программа в "школьной версии"

// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
const
  legal=['A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё'];
var
  s:string;
  i:integer;
begin
  Write('Исходная строка: '); Readln(s);
  for i:=Length(s) downto 1 do
    if not(s[i] in legal) then Delete(s,i,1);
  Writeln('Результат: ',s);
end.

Const n = 15;
var a:array[1..n]of integer;
i,m,min5:integer;
f:boolean;
begin
  for i:=1 to n do begin
    write('Введите ',i,' член массива ');
    readln(a[i]);
    if a[i] mod 5=0 then begin
      m:=m+1;
      if not f then begin
        min5:=a[i];
        f:= not f;
      end;
      if (f) and (a[i]<min5) then min5:=a[i];
    end;
  end;
  writeln('Кратных 5: ',m:3,' Минимальный: ',min5:4);
end.

Тестовое решение
Введите 1 член массива 13
Введите 2 член массива 10
Введите 3 член массива 15
Введите 4 член массива 5
Введите 5 член массива 25
Введите 6 член массива 23
Введите 7 член массива 12
Введите 8 член массива 32
Введите 9 член массива 11
Введите 10 член массива 21
Введите 11 член массива 43
Введите 12 член массива 15
Введите 13 член массива 25
Введите 14 член массива 13
Введите 15 член массива 14
Кратных 5:  6    Минимальный:  5