. У Кайрата 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 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
Тебе нужно было задать во Какая причина появления данного сообщения