<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (sn,pp,kp):=(0,1,0);
var n:integer;
repeat
Read(n);
if (n<0) and n.IsOdd then sn+=n
else
if (n>0) and (n mod 3=0) then begin pp*=n; kp+=1 end
until n=0;
if sn=0 then begin
Writeln('Нет отрицательных нечетных чисел');
if kp=0 then Writeln('Нет положительных чисел, кратных 3')
else Writeln('Произведение положительных чисел, кратных 3: ',pp)
end
else begin
Writeln('Сумма отрицательных нечетных чисел: ',sn);
if kp=0 then Writeln('Нет положительных чисел, кратных 3')
else Writeln('Произведение положительных чисел, кратных 3: ',pp)
end
end.
<u>Пример</u>
-367 23 62 7 12 -24 90 152 -63 0
Сумма отрицательных нечетных чисел: -430
Произведение положительных чисел, кратных 3: 1080
Var
a,y:integer;
begin
writeln('a=');
readln(a); {допустим что ввели значение 12}
if a>=5 then y:=2*a+5 else y:=a*a; {выполняется условие y:=2*a+5 ибо 12>=5}
writeln('y=',' ',y); {y=2*12+5 y=29}
readln*
end.
Короче ответ Г
Var
x0, x1, c, sum: integer;
begin
sum:=0;
readln(x0, x1, c);
while x0<=x1 do
begin
sum:=sum+x0;
x0:=x0+c;
end;
writeln(sum);
end.
#include<iostream>
#include<conio.h>
int N;
int main()
<span>{
</span><span> std::cin >> N;</span><span>
if (N % 2 == 0 && N > 0)</span><span>
std::cout << "number is even and greater than 0" << std::endl;
</span><span> else if (N % 2 == 1 && N > 0)</span><span>
std::cout << "number is odd and greater than 0" << std::endl;</span><span>
else if (N < 0)</span><span>
std::cout << "number is negative" << std::endl;</span><span>
getch();</span><span>
return 0;
</span><span>}</span>