1. даны n чисел. найдите произведение четных и сумму нечетных. решить с паскаля. 2. даны n чисел. если кол-во положительных и кол-во отрицательных. сравнить результаты.
Var a, n, ch, nch, i:Integer; begin write("N: "); readln(n); ch:=1; nch:=0; for i:=1 to n do begin read(x); if x mod 2=0 ch:=ch*x; else nch:=nch+x; end; if ch=1 ch:=0; writeln("Произведение чётных: ", ch, "; сумма нечётных: ", nch, "."); end.
var i, n, o, p, x:Integer; begin write("N: "); readln(n); p:=0; o:=0; for i:=1 to n do begin read(x); if x>0 inc(p); if x<0 inc(o); end; write("Кол-во положительных чисел: ", p, "; кол-во отрицательных чисел: ", o, ". Разница: ", abs(p-o)); end.
//Блок-схемы в приложении //Pascal ABC.NET v3.0 сборка 1111
//1 Var a,p,s:real; begin readln(a); p:=a*4; s:=a*a; writeln('P=',p); writeln('S=',s); end.
//2 Var a,b:integer; begin read(a,b); if a>b then writeln(b); if a=b then writeln('='); if a<b then writeln(a); end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся. Ваш, Глеб 'I3artle' Косырев}
{ Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен. }
var sq : array[0..999] of array[0..9] of boolean; co : array[0..999] of integer; ar : array[1..10003] of 0..9; i,j: integer; x: integer; t : boolean; begin for i := 0 to 999 do begin for j := 0 to 9 do sq[i][j] := false; co[i] := 0; end; for i := 1 to 3 do ar[i] := 0; i := 3; t := true; {write('000');} while t do begin i := i + 1; x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1]; if co[x] >= 10 then t := false else begin j := 1; while sq[x][j] do j := (j + 1) mod 10; ar[i] := j; sq[x][j] := true; co[x] := co[x] + 1; {write(j)} end; end; {writeln;} writeln('Length: ',i - 1);
{просто чтобы убедиться} for i := 0 to 999 do for j := 0 to 9 do sq[i][j] := false;
t := true; j := 0; i := 1; while (i <= 10000) and t do begin x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2]; if sq[x][ar[i+3]] then t := false else begin sq[x][ar[i+3]] := true; j := j + 1; end; i := i + 1 end; if t and (j = 10000) then write('Confirmed') end.
begin
write("N: ");
readln(n);
ch:=1;
nch:=0;
for i:=1 to n do
begin
read(x);
if x mod 2=0
ch:=ch*x;
else
nch:=nch+x;
end;
if ch=1
ch:=0;
writeln("Произведение чётных: ", ch, "; сумма нечётных: ", nch, ".");
end.
var i, n, o, p, x:Integer;
begin
write("N: ");
readln(n);
p:=0;
o:=0;
for i:=1 to n do
begin
read(x);
if x>0
inc(p);
if x<0
inc(o);
end;
write("Кол-во положительных чисел: ", p, "; кол-во отрицательных чисел: ", o, ". Разница: ", abs(p-o));
end.