<span>Одна книга тысячу людей учит. </span>
<span>Книга – в ней два листа, а серединка пуста. </span>
<span>За семью печатями. </span>
<span>В умной голове сто рук. </span>
<span>Один за всех и все за одного. </span>
<span>Премудрость одна, а мудростей много. </span>
<span>Сто голов - сто умов. </span>
<span>От слова до дела сто перегонов. </span>
<span>Слово слово родит, третье само бежит. </span>
<span>Руки побьют одного, знание побьёт тысячу. </span>
<span>За учёного двух неучёных дают, да и то не берут. </span>
<span>Один добрый опыт важнее семи мудрых поучений. </span>
<span>Семь мудрецов дешевле одного опытного человека. </span>
<span>Бог любит троицу.</span>
1) VI + V = XI
2) X - IV = VI
3) VI = IX - III
4) XIII - III = X
если всё прибавить надо то 9+8+7+10+6+8+6=54
Program X; //работает только для русских строк
var
i: longint;
s: string;
begin
readln(s);
for i := 1 to length(s) do
if (ord(s[i]) >= 192) and (ord(s[i]) <= 223) then
s[i] := chr(ord(s[i]) + 32)
else if (ord(s[i]) >= 224) and (ord(s[i]) <= 255) then
s[i] := chr(ord(s[i]) - 32);
writeln(s)
<span>end.</span>
Первая программа:
program n1;
var a: array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
K:=0;
For i:=1 to 10 doIf a [i]> 50 then k:=k+1;
Write ('k=', k);
end.
Вторая программа:
program n1;
var a: array[1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
s:=0;
for i:=1 to 10 doif (a [i]>50) and (a [i]<60) then s:=s+a [i];
write ('s=', s);
end.
