Информатика | 5 - 9 классы
Дано двухзначное число.
Найти число единиц в нём.
Дано расстояние в метрах?
Дано расстояние в метрах.
Найти число полных километров в нём.
Дано двухзначное число найти цифры этого числа?
Дано двухзначное число найти цифры этого числа.
Заранее спасибо!
Даны 2 двухзначных числа сравнить какое число наибоьшее по паскалю?
Даны 2 двухзначных числа сравнить какое число наибоьшее по паскалю.
Дано двухзначное число ab, найти четырехзначное число aabb?
Дано двухзначное число ab, найти четырехзначное число aabb.
Язык C + + .
Дано двузначное число?
Дано двузначное число.
Найти число единиц в нем.
Найти все двухзначные числа, в записи которых есть цифра 5?
Найти все двухзначные числа, в записи которых есть цифра 5.
Помогите, пожалуйста?
Помогите, пожалуйста!
Информатика, 10 класс, Паскаль 1)Написать программу.
Вводятся два двухзначных целых числа.
Подсчитать и вывести два числа : сумма десятков первого и второго числа и сумма единиц первого и второго числа.
2)Вводятся два двухзначных целых числа.
Подсчитать и вывести два числа : произведение десятков первого числа и единиц второго числа ; произведение единиц первого числа и десятков второго.
3)Вводятся два двухзначных целых числа.
Подсчитать и вывести два числа : произведение десятков первого числа и единиц второго числа ; сумма единиц первого числа и десятков второго числа.
Дано двухзначное число узнать какое из его чисел больше?
Дано двухзначное число узнать какое из его чисел больше.
Дано двузначное число?
Дано двузначное число.
Найдите число десятков в нем.
Входные данные Вводится двухзначное число.
Выходные данные Выведите ответ на задачу.
Дано двухзначное число?
Дано двухзначное число.
Найти число единиц в нем.
Перед вами страница с вопросом Дано двухзначное число?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 5 - 9 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
Var a, k : integer ;
begin
read(a) ;
if (a mod 10 = 1) then k : = k + 1 ;
if (a div 10 = 1) then k : = k + 1 ;
if k = 0 then writeln('Единиц нет')
else writeln(k) ;
end.