<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Сумма элементов, кратных 3, равна ',a.Where(x->x mod 3 =0).Sum)
end.
Program Zd;
var
a, n, I, res: Integer;
begin
WriteLn('Input the a: ');
Read(a);
WriteLn('Input the n: ');
Read(n);
res:=a;
for i:=1 to n - 1 do
res:=res * (a + i);
WriteLn('Результат: ', res);
end.
Решение:
1) 256:32=8(раз)
Ответ : в 8 раз различаются информационные объемы этих текстов.
Pascal
//Эта программа корректно работает для двухзнаных чисел
// при a > 100 будет к примеру 125 =>125-(12+5)...
var a,k : integer;
begin
k := 0;
readln (a);
while a > 0 do
begin
a := a - (a div 10 + a mod 10);
k := k +1;
end;<span>
writeln (k);
end.</span>