Регистрация
nkaracheva
17.08.2021 01:35
Информатика
Есть ответ 👍

Дано целое натуральное число. определить является ли произведение всех его цифр двузначным числом через while или until паскаль

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

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

Stapanmm
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.
одногоВоло
одногоВоло
4,5(58 оценок)

это все деление на 3: 81,27,9,3. на каждую цифру по 2 взвешивания.

ответ: 8

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