Первая задача (проверил, вроде работает, константа N - количество чисел в последовательности):
const N = 10;
var number, count, i : integer;
begin
count := 1;
for i := 1 to N do
begin
write('Input number: ');
readln(number);
if (number mod 3 = 0) and (number <> 0) then
count := count * number;
end;
if (count = 1) then
count := 0;
writeln('Result: ',count);
readln;
end.
Вторая задача (проверил, работает, но мог недопонять условие):
const N = 10;
var number, positive, negative, i : integer;
begin
negative := 1; positive := 0;
for i := 1 to N do
begin
write('Input number: ');
readln(number);
if (number > 0) then
positive := positive + number;
if (number < 0) then
negative := negative * number;
end;
writeln('Positive sum: ',positive);
writeln('Negative mul: ',negative);
if (positive > negative) then
writeln('Sum of positive numbers bigger than mul of negative numbers.')
else if (positive < negative) then
writeln('Sum of positive numbers lesser than mul of negative numbers.')
else
writeln('Sum of positive numbers and mul of negative numbers are equal.');
readln;
end.
Третья задача (проверил, работает):
const N = 10;
var number, lastneg, prevneg, i : integer;
begin
lastneg := 100; prevneg := 100;
for i := 1 to N do
begin
write('Input number: ');
readln(number);
if (number < 0) then
if (lastneg > 0) then
lastneg := number
else
begin
prevneg := lastneg;
lastneg := number;
end;
end;
if (prevneg > 0) then
writeln('This sequence of numbers contains less than two negative numbers.')
else
writeln('Penultimate negative number: ',prevneg);
readln;
end.
<span>var a,b:integer;
<span>begin</span></span>
<span><span /></span><span><span>a:=10;
</span><span> b:=15;
if a>b then b:=a+b;
a:=a+b;</span></span>
<span><span>writeln(a);</span></span>
<span><span>writeln(b);</span></span>
<span><span>end;</span></span>
<span><span />
</span>
Это телефон, скайп и т.п.
Просыпаюсь >потягиваюсь >встаю с кровати>иду чистить зубы>одеваюсь>обуваюсь >иду до школы и тд.