Вычислить сумму квадратов цифр. в паскале

Var i,s: integer; begin                                         s: =0; for i: =0 to 9 do     {цикл, перебираем цифры от 0 до 9 и присваиваем их       переменной   i  }       s: =s+sqr(i);                           {sqr(i)- квадрат i, вычисляем квадрат и добавляем его в }                                                     общую сумму s} writeln('сумма квадратов цифр = ',s);         {выводим сумму} end.

1)алгоритм шифрует блок 64 бита. на выходе получается блок 64 бита. то что данные зашифрованы не видно. и не должно быть видно. другое дело, что часто бывает видно, что данные не зашифрованы, когда они символьные, например. классическая книга: брюс шнайер. прикладная криптография. там этот алгоритм описан и его реализация на языке си2)четыре класса должны покрасить забор вокруг школы. классы б.в.г могут выполнить эту работу за 3часа. классы а, в, г могут выполнить эту работу за 2часа. если же будут работать классы а и б, то работа будет выполнена за 5часов. за какое время могут покрасить забор все четыре класса?   решение:           p (производительность)              t (время)        а (работа)   б + в + г                    р(б) + р(в) + р(г) = 1/3                  3ч.                          1   а + в + г                  р(а) + р(в) + р(г) = 1/2                      2ч.                            1   а + б                                р(а) + р(б)   = 1/5                                        5ч.                          1 а + б + в + г                                                                                                        ? ч.                            1   прибавим все р, получим:   2р(а) + 2р(б) + 2р(в) + 2р(г)  =     2(р(а) + р(б) + р(в) + р(г)) =     (р(а) + р(б) + р(в) + р(г) =           тогда время t   =                                                                 ответ:                                            

Uses crt; const zn=[' ',': ',',','! ','? ','-','; ',')']; var s,s1,s2: string; i,k: byte; begin clrscr; writeln('введите строку, содержащую 2 одинаковых слова: '); readln(s); s: =s+' '; for i: =1 to length(s) do if s[i] in zn then s[i]: =' '; while pos(' ',s)> 0 do delete(s,pos(' ',s),1); if s[1]=' ' then delete(s,1,1); k: =0; while pos(' ',s)> 0 do begin s1: =copy(s,1,pos(' ',s)-1); for i: =pos(' ',s)+1 to length(s) do if (copy(s,i,length(s1))=s1) and(s[i-1]=' ') and((s[i+length(s1)]=' ') or(i+length(s1)-1=length( then begin k: =1; s2: =s1; write('одинаковые слова ',s2); readln; exit; end; delete(s,1,pos(' ',s)); end; if k=0 then write('нет двух одинаковых слов'); readln end.