// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
function SoD(n:int64):integer;
begin
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var a:=ReadArrInteger('Введите три натуральных числа:',3);
Write('Суммы цифр чисел: '); a.Select(x->SoD(x)).Println;
Writeln('Общая сумма цифр всех чисел: ',a.Select(x->SoD(x)).Sum)
end.
<u><em>Тестовое решение:</em></u>
Введите три натуральных числа: 56325 23131 784545223
Суммы цифр чисел: 21 10 40
Общая сумма цифр всех чисел: 71
Люди считали в уме и письменно наверн
<span> 1)зрительная,тоесть когда мы что-то читаем.2)Слуховая,когда мы слышим информацию3)Обанятельная4)осязательная.</span>
Функция Foo() принимает указатели на 2 массива (я так понял, что это нужно по заданию), а там уже вызывается функция, которой передаётся указатель только на 1 массив.
#1.
var n,i,flag:integer;
begin
readln (n);
flag:=0;
while n>0 do
begin
i:=n mod 10;
n:=n div 10;
flag:=flag+1;
end;
if (flag = 2)
then writeln ('Это число двузначное')
else
writeln ('Число не является двузначным');
end.
#2.
var n:integer;
begin
readln (n);
if (n mod 2 = 0) then
writeln ('Это число четное')
else
writeln ('Число не является четным');
end.