нужно сделаю лучшим ответом Нужно Инфортика 5 Класс Кто будет писать Ерунду буду отправлять вам Жалобы - id1732627720211101 от yulyaakimova0 01.11.2021 10:47

Question

Информатика: нужно сделаю лучшим ответом Нужно Инфортика 5 Класс Кто будет писать Ерунду буду отправлять вам Жалобы после Чего вас заблокируют будете создавать новый акк а это не легко ​

yulyaakimova0 · Accepted Answer

Var a, b, c, rez: real; begin write( Введите число А: ); readln(a); write( Введите число B: ); readln(b); write( Введите число C: ); readln(c); if (a = 0) and (b = 0) and (c = 0) then rez := a + b + c; if (a = 0) and (b = 0) then rez := a + b; if (a = 0) and (c = 0) then rez := a + c; if (b = 0) and (c = 0) then rez := b + c; if (a = 0) and (b = 0) then rez := c; if (b = 0) and (c = 0) then rez := a; if (a = 0) and (c = 0) then rez := b; if (a = 0) and (b = 0) and (c = 0) then rez := 0; writeln(rez);...

MOGZ ответил