PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
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.
Внимание! Если программа не работает, обновите версию!
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.
Пример
-367 23 62 7 12 -24 90 152 -63 0
Сумма отрицательных нечетных чисел: -430
Произведение положительных чисел, кратных 3: 1080
1.
import random
a = random.randint(1,15)
b = random.randint(1,15)
if a == b:
a = 0
b = 0
print(a,b)
2.
import random
n = random.randint(1,999)
a = ""
b = ""
n = str(n)
if len(n) == 1:
a = "однозначное"
elif len(n) == 2:
a = "двухзначное"
elif len(n) == 3:
a = "трёхзначное"
n = int(n)
if n % 2 == 0:
b = "чётное"
else:
b = "нечётное"
print(a + " " + b + " число")
3.
n = int(input("Введите номер дня недели: "))
if n == 1:
print("Понедельник")
elif n == 2:
print("Вторник")
elif n == 3:
print("Среда")
elif n == 4:
print("Четверг")
elif n == 5:
print("Пятница")
elif n == 6:
print("Суббота")
elif n == 7:
print("Воскресенье")
else:
print("Такого дня недели нет")