Есть ответ 👍

Чему мы сможем научится, изучая Сетевую этику?

174
203
Посмотреть ответы 2

Ответы на вопрос:


Объяснение:

культурному и уважительному общению в сети интернет,без мата и ненормативной лексики

Stapanmm
4,4(34 оценок)

Uses crt; var x: string; i,mult,len: integer; begin mult: =1; read(x); i: =1; len: =length(x); while i< =len do begin mult: =mult*strtoint(x[i]); i: =i+1; end; if length(inttostr(mult))=2 then  writeln('yes') else  writeln('no');   end.

Популярно: Информатика