12. графический редактор Gimp
офисный пакет OpenOffice
браузер Opera
4. хранить копию на DVD-диске
распространять измененную версию
исправлять явные ошибки
<u>1. Программа в одной из современных версий Паскаля:</u>
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var s:=ReadlnString('Исходная строка:');
Writeln('Результат: ',s.MatchValues('[a-zA-ZА-Яа-яёЁ]').JoinIntoString(''));
end.
<u>Тестовое решение:</u>
Исходная строка: // PascalABC.NET 3.1, сборка 1211 от 31.03.2016
Результат: PascalABCNETсборкаот
<u>2. Программа в "школьной версии"</u>
// 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.
Так как одна цифра восьмеричного числа соответствует трём цифрам двоичного числа, то искомое восьмеричное число в двоичной системе счисления имеет вид: 001 000 000 011 111 111(2) = 100377(8)
Program Tablica;
Var
n: Integer;
i: Integer;
Begin
n := 15;
for i := 1 to 17 do
begin
Write(n, '*', i, '=', n*i, ' ');
Write(n+1, '*', i, '=', (n+1)*i, ' ');
WriteLn(n+2, '*', i, '=', (n+2)*i);
end;
ReadLn;
End.