<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqReal(3).Where(t -> t > 0).Sum.Println
end.
<h2>3.53 -6.23 12</h2><h2>15.53 </h2>
вот.. вроде подробно, все понятно и четко написано?
1) Информация
2) Файл
3) Программа
4) Питание
5) Окно
6) Сеть
Program primer;
uses
crt;
var
x,y:integer;
begin
writeln('Введите x и y');
readln(x,y);
writeln('Остаток от деления ',x, ' на ',y, ' равен ',x mod y);
<span>end.</span>
var
N,sum,k: integer;
begin
sum:=0;
WriteLn('Введите N');
readln(N);
while N <=9 do
begin
writeln('Введите корректное число (больше или равное 10)');
readln(N);
end;
while N >=10 do
begin
k:= N mod 10;
N:= N div 10;
sum:= sum + k;
end;
sum:=sum + N;
write('Первая цифра числа ');
writeln(N);
write('Сума цифр числа ');
writeln(sum);
end.