Фрагмент презентации с многослойной структурой-...

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! №1 function isgood(n: integer): boolean; begin   n: =abs(n);   var s: =0;   while n> 0 do begin       s+=n mod 10;       n: =n div 10       end;   result: =s=10 end; begin   var k: =readseqintegerwhile(t-> t< > 0).where(t-> isgood(;   writeln(k,' чисел с суммой цифр, равной 10') end. пример -5234 20043 52340 10531 -64 31502 0 2 чисел с суммой цифр, равной 10 №2 begin   var n: =readinteger('введите число: ');   if n< =1 then writeln(n,'! =',1)   else writeln(n,'! =',1.to(n).aggregate(biginteger(,j)-> i*j)) end. примеры введите число: 5 5! =120 введите число: 20 20! =2432902008176640000 введите число: 100 100! =93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000 №3 begin   if readinteger('введите число: ').tostring.groupby(t-> t).           select(t-> (t.key,t.(t-> t[1]> 1)   then writeln('число содержит по крайней мере две одинаковые цифры')   else writeln('введенное число не содержит одинаковых цифр') end. примеры введите число: 12345670 введенное число не содержит одинаковых цифр введите число: 1320624 число содержит по крайней мере две одинаковые цифры

1) var i,a: integer; begin a: = 1; while a< > 0 do begin read(a); i+=a; end; writeln(i=10); end. 2) можно через double. но после 170! уже бесконечность. var n: integer; var b: double; begin b: =1; read(n); for var i: = 1 to n do b*=i; writeln('factorial '+n+' = '+b); end. 3) работает как и с числами так и со строками. var arr: array of char; var a: string; var first,last: integer; begin read(a); arr: = a.tochararray(); for var i: = 0 to arr.length-1 do begin first: =pos(arr[i], a); last: =pos(arr[i], a,first+1); if (first> 0) and (last > 0) and (first< > last) then begin first: =99; break; end; end; if first = 99 then writeln('содержит. это число '+arr[last-1]) else writeln('несодержит.'); end.