розробіть програму без конструктора у якій один клас наслідує атрибути іншого. у супер класі два числа - id2090878520221108 от ЮлияБогинская 08.11.2022 06:33

Question

Информатика: розробіть програму без конструктора у якій один клас наслідує атрибути іншого. у супер класі два числа множаться, а в підкласі виводиться результатт множення(пайтон)

ЮлияБогинская · Accepted Answer

Если не разделять понятия неотрицательных и положительных, то этот код:
Var
A,B,C,P,O:integer;
Begin
P:=0;
O:=0;
WriteLn('Введи три числа');
ReadLn(A,B,C);
if A>=0 then P:=P+1
else O:=O+1;
if B>=0 then P:=P+1
else O:=O+1;
if C>=0 then P:=P+1
else O:=O+1;
WriteLn('Положительных чисел ',P);
WriteLn('Отрицательных чисел ',O)
End.

Если разделять, то этот:
Var A,B,C,P,O,N:integer;
Begin
P:=0;
O:=0;
N:=0;
WriteLn('Введи три числа');
ReadLn(A,B,C);
if A=0 then N:=N+1
else
if A>0 then P:=P+1
else O:=O+1;

if B=0 then N:=N+1
else
if B>0 then P:=P+1
else O:=O+1;

if C=0 then N:=N+1
else
if C>0 then P:=P+1
else O:=O+1;
WriteLn('Положительных чисел ',P);
WriteLn('Отрицательных чисел ',O);
WriteLn('Нулей ',N)
End.

MOGZ ответил