Uses crt;
var a,b,c,s,k : integer;
begin
writeln('Введите 3 числа :');
readln(a,b,c);
if a > 0 then
begin
k:= k + 1;
s:= a;
end;
if b > 0 then
begin
k:= k + 1;
s:= s + b;
end;
if c > 0 then
begin
k:= k + 1;
s:= s + c;
end;
writeln('Сумма чисел = ' , s);
writeln('Количество положительных чисел = ', k);
end.
// PascalABC.NET 3.3.1611
begin
var sum := 0;
var n := 0;
ReadSeqIntegerWhile(x -> x <> 0).ForEach(x -> begin
n += 1;
if (0 < x) and (x <= 256) and (x mod 2 = 0) then
sum += x;
end);
println('Количество:', n);
println('Сумма:', sum);
end.
{В данном случае не имеет смысла возиться с числами, куда лучше подходят строки}
//Pascal ABC.NET v3.1 сборка 1172
Var
s,c:string;
begin
readln(s);
c:=s[length(s)-1]+s[length(s)];
delete(s,length(s)-1,2);
writeln(s,' руб. ',c,' коп.');
end.
Пример ввода:
8705553535
Пример вывода:
87055535 руб. 35 коп.
Тип название(аргументы);
void function(int a, char c);