Назовите разновидности программ прикладного назначения. кто использует прикладные программы общего назначения? ?

115

192

Посмотреть ответы 1

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

арина22051

Информатика

4,4(21 оценок)

Var a, n: longint; v1, v2, v3: byte; s: byte; begin readln(a); n : = a; v1 : = 0; v2 : = 0; v3 : = 0; while (n < > 0) do begin s : = n mod 10; n : = n div 10; if (s = 3) then v1 : = 1; if (s = 2) then v2 : = 1; if (s = 5) then v3 : = 1; end; if (v1 = 1) then writeln('в этом числе есть цифра 3') else writeln('в этом числе нет цифры 3'); if (v2 = 1) and (v3 = 1) then writeln('в этом числе есть цифры 2 и 5') else writeln('в этом числе нет одновременно цифр 2 и 5'); end.