var
a, s, p : integer;
begin
p : = 1;
repeat a : = readinteger('введите 4-х значное число: ') until (a > 999) and (a < 10000);
while a > 0 do begin
s += a mod 10;
p *= a mod 10;
a : = a div 10;
end;
writeln('сумма ', s);
writeln('произведение ', p);
end.
var
b : array of integer : = new integer[15];
a : array of integer : = new integer[0];
begin
writeln('введите целые числа: ');
for var i : = 0 to 14 do read(b[i]);
for var i
: = 0 to 14 do begin
if b[i] < > 0 then begin
setlength(a, a.length+1);
a[a.length-1] : = b[i];
end;
end;
writeln('b = ', b);
writeln('a = ', a);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Примеры неактуальной , необъективной , полезной, бесполезной , понятной информации