<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Сколько чисел обработать?');
var s:=1;
loop n do begin
var k:=ReadInteger('Введите число');
if k>0 then s*=k
end;
Writeln('Произведение положительных чисел из ',n,' составляет ',s)
end.
<u>Пример</u>
Сколько чисел обработать? 5
Введите число 7
Введите число -4
Введите число 0
Введите число 9
Введите число -2
Произведение положительных чисел из 5 составляет 63
Var
p, i, t : integer;
begin
p := 1;
i := 1;
repeat
read (t);
if t mod 17 <> 0 then p := p * t;
i := i + 1;
until i > 17;
write (p);
end.
const
n = 5;
var
a,i,k : integer;
begin
readln (a);
k := 1;
While (a < 0) and (k < n) do
begin
k := k +1;
readln (a);
end;
for i := k to n do
readln (a);
a := k;
While a <n do
begin
k := k -1;
a := n;
end;
writeln (k); <span>
end.</span>
Var i,n,sum: integer;
begin
sum:=0;
writeln('Введите число, которое > 1');
readln(n);
for i:=1 to n do
begin
sum:=sum+i;
end;
writeln(sum);
End.
Пишу на паскале. Я так понял суть программы в том чтобы она из числа 325 сделала 523. Если так и надо то вот код:
program prog;
var m,r,k,n,d:integer;
begin
writeln('Введите число n');
readln(n);
k:=n mod 10;
d:=n div 100;
r:=n div 10 mod 10;
m:=k*100+r*10+d;
writeln(m);
readln;
<span>end.</span>