1. С:\учёба\математика\ГИА\Расписание
2. С:\учёба\Расписание
3. D:\2013\Зима\Январь\Вьюга.doc
<span>4. D:\2013\Весна\Май\Ландыш.doc
Остальные задания повторяются.</span>
Решение и результат выполнения на паскале смотри во вложении
Var a:string;
begin
readln(a);
writeln(length(a));
end.
===== PascalABC.NET =====
begin
var n := 22;
var a := ArrRandom(n, 0, 12);
a[a.High] := 11;
a.Println;
var s := 0;
for var i := 0 to a.High do
begin
if a[i] > 10 then
$'a[{i + 1}] = {a[i]} '.Print;
if a[i] mod 4 = 0 then
s += a[i]
end;
Writeln;
Println('Сумма', s)
end.