Информатика | 10 - 11 классы
Найдите все трехзначные числа, сумма цифр которых равна данному целому числу.
(pascal).
Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа?
Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа.
Free pascal.
1. Дано целое число А?
1. Дано целое число А.
Определить количество цифр в числе, которые больше 6.
Pascal.
Программу на Си?
Программу на Си.
Найти все трехзначные числа, сумма цифр которых равна данному целому числу.
Ввести с клавиатуры трехзначное число и корень квадратный из суммы цифр этого числаpascal?
Ввести с клавиатуры трехзначное число и корень квадратный из суммы цифр этого числа
pascal.
Дано трехзначное и четырехзначное число?
Дано трехзначное и четырехзначное число.
В каком числе сумма цифр больше?
Напишите, пожалуйста, программу для Pascal.
ABC.
1. Дано трехзначное число?
1. Дано трехзначное число.
Написать программу (Pascal), которая «переставляет» первую цифру числа на самое последнее место.
Даны целое трехзначное число N и цедое число k?
Даны целое трехзначное число N и цедое число k.
Написать программу, подсчитывающую сумму цифр числа N, которые больше k.
Дано трехзначное число?
Дано трехзначное число.
Найдите сумму его цифр.
Дано трехзначное число Напишите программу которая определяет есть ли среди цифр заданного целого трехзначного числа одинаковые?
Дано трехзначное число Напишите программу которая определяет есть ли среди цифр заданного целого трехзначного числа одинаковые.
Дано трехзначное число?
Дано трехзначное число.
Найти число, полученное при перестановке первой и последней
цифр заданного числа.
Pascal.
Вы зашли на страницу вопроса Найдите все трехзначные числа, сумма цифр которых равна данному целому числу?, который относится к категории Информатика. По уровню сложности вопрос соответствует учебной программе для учащихся 10 - 11 классов. В этой же категории вы найдете ответ и на другие, похожие вопросы по теме, найти который можно с помощью автоматической системы «умный поиск». Интересную информацию можно найти в комментариях-ответах пользователей, с которыми есть обратная связь для обсуждения темы. Если предложенные варианты ответов не удовлетворяют, создайте свой вариант запроса в верхней строке.
Uses crt ;
var i, s, a, b, c, ch, o : integer ;
begin
o : = 0 ;
writeln(' Vvedite chislo ' ) ;
readln(ch) ;
for i : = 100 to 999 do
begin
a : = i div 100 ;
b : = (i div 10) mod 10 ;
c : = i mod 10 ;
if ((a + b + c) = ch) then
begin
inc(o) ;
writeln(i) ;
end ;
end ;
if o = 0 then writeln('error !
') ;
readln ;
end.