Склавиатуры вводится целое число n,найти произведение всех цифр этого числа,а также количество цифр - id200397920211129 от mrzus 29.11.2021 09:01

Question

Информатика: Склавиатуры вводится целое число n,найти произведение всех цифр этого числа,а также количество цифр больше 6

mrzus · Accepted Answer

{ ответ дан на языке Pascal } {         Вариант a         } PROGRAM Solution(INPUT, OUTPUT); VAR   Str: STRING;   Str1: STRING;   Str2: STRING;   Str3: STRING;   TempStr: STRING; BEGIN   WRITE( Введите строку: );   READLN(Str);   Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);   Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));   Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));   WRITELN(Str2 + Str3 + Str1); END. {         Вариант b         } PROGRAM Solution(INPUT, OUTPUT); VAR...

Склавиатуры вводится целое число n,найти произведение всех цифр этого числа,а также количество цифр больше 6

MOGZ ответил