сервис вопросов и ответовдано целое натуральное число. определить является ли произведение всех его цифр двузначным числом
5-9 класс|
|
помогите пожалуйста через while или until
паскаль
Vipmixamixa0
19 июля 2013 г., 0:42:26 (10 лет назад)
Rudenconatasha
19 июля 2013 г., 3:15:36 (10 лет назад)
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.
Ответить
Другие вопросы из категории
С клавиатуры вводятся 20 чисел. Найти произведение чисел кратных 5. Найти количество неотрицательных чисел. Решить задачу эту задачу надо в Turbo Pascal
, методом repeat until или while if
Книга,состоящая из 1360 страниц занимает объем 40 Мбайт.часть книги является цветными изображениями в формате 320на640 точек.на одной странице книги с
текстом размещается 1024 символа.каждый символ закодирован 1 байтом.кол-во страниц с текстом на 560 больше кол-ва страниц с цветными изображениями.сколько цветов используется для представления изображений книги
алг нач целтаб Dat[1:8] Dat[1] :=7 ; Dat[2] : = 7 Dat[3] : =6 ; Dat[4] : =8 Dat[5] : =4 ; Dat[6] : =5 Dat[7] :
=1 : Dat[8] : =7
term : = 1 m : =Dat[1]
нц для k от 2 до 8
если Dat [k]>m то
m : = Dat[k]
term : = k
все
кц
вывод term
кон
НАПИШИТЕ ПОЛНОЕ РЕШЕНИЕ ,КАК РЕШАТЬ ЭТО?
Читайте также
Дан массив целых чисел. Выяснить:
1) является ли s-й элемент массива положительным числом;
2) является ли k-й элемент массива чётным числом;
3) какой элемент массива больше k-й или s-й.
Паскаль для Лазаруса.
№19. Даны стороны треугольника. Определить является ли этот треугольник: а) равносторонним б) равнобедренным в) прямоугольным.
№20. Даны величины углов треугольника. Определить является ли это треугольник:
а) остроугольным
б) тупоугольным
в) прямоугольным
г) равносторонним
д) равнобедренным.
№21. Определить, какая из двух точек - M1(x1,y1) или M2(x2,y2) - расположена ближе к началу координат. Вывести на экран дисплея координаты этой точки.
№22. Даны действительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x и y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.
№23. Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условия:
а) квадрат заданного трехзначного числа равен кубу суммы цифр этого числа;
б) сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр;
в) среди цифр заданного трехзначного числа есть одинаковые;
г) среди первых трех цифр из дробной части заданного положительного вещественного числа есть цифра 0.
написать программу на языке паскаля 1)Дано натуральное число. Определить является ли оно чётным 2)дано натуральное число.
Определить оканчивается ли оно цифрой 7.
Программу надо написать в PascalABC, с использованием команд repeat и until. Ввести натуральное число и определить, какие цифры встречаются несколько раз
(с защитой от неверного ввода) или Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10 (с защитой от неверного ввода).
Вы находитесь на странице вопроса "дано целое натуральное число. определить является ли произведение всех его цифр двузначным числом", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.