<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.
var n,i,k,a: integer;
begin
readln(n);
k:=0;
for i:=1 to n do begin
readln (a);
if (a div 3 <> 0) and (a mod 10 = 2) then
k:=k+1;
end;
writeln(k);
end.
Вводи:
System.out.println(("Алена")) ;
Скрин скинул
запишем условие: I1=447.6Kб, I2=1.8Мб N-?
решение: выразим объем дискеты в Кб
1,8*1024=1843,2 Кб
N=I2/I1=1842.2/447.6=4.1179 (округлим до 4) это и есть ответ
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -10, 10);
a.Println;
a.Transform(t -> Abs(t));
a.Println
end.
<h2>-1 -6 -8 4 10 -5 -7 -8 10 6</h2><h2>1 6 8 4 10 5 7 8 10 6</h2>