Информатика | 5 - 9 классы
Ребята помогите!
Решать пыталась, но прога выводит ошибки!
Найти все четырехзначные натуральные числа, у которых сумма крайних цифр равна сумме сред - них цифр, а само число делится на число А!
Паскаль?
Паскаль.
Найти все двузначные числа, такие, что сумма цифр равна A, а само число делится на B.
Дано четырехзначное число?
Дано четырехзначное число.
Найти сумму квадратов второй и третьей цифры.
Дано четырехзначное число?
Дано четырехзначное число.
Найти : сумму его цифр.
Написать программу на Pascal'е.
Найти сумму цифр четырехзначного числа через цикл с постусловием?
Найти сумму цифр четырехзначного числа через цикл с постусловием.
Дано натуральное четырехзначное число n?
Дано натуральное четырехзначное число n.
Найти сумму его цифр.
Найти сумму цифр четырехзначного числа в паскалях?
Найти сумму цифр четырехзначного числа в паскалях.
Дано натуральное число : − найти сумму цифр этого числа ; − верно ли, что число начинается и заканчивается одной и той же цифрой?
Дано натуральное число : − найти сумму цифр этого числа ; − верно ли, что число начинается и заканчивается одной и той же цифрой.
Найти все трёхзначные цифры, такие, что сумма цифр равна А, а само число делится на В (А и В вводятся с клавиатуры)?
Найти все трёхзначные цифры, такие, что сумма цифр равна А, а само число делится на В (А и В вводятся с клавиатуры).
Среди двузначных чисел найти те, которые делятся на число q, а сумма тех цифр равна n ( 0?
Среди двузначных чисел найти те, которые делятся на число q, а сумма тех цифр равна n ( 0.
Среди всех трезначных чисел найти числа для которых верно утверждение : сумма кубов цифр этого числа равна самому числу?
Среди всех трезначных чисел найти числа для которых верно утверждение : сумма кубов цифр этого числа равна самому числу.
Составить Паскаль программу.
На этой странице сайта размещен вопрос Ребята помогите? из категории Информатика с правильным ответом на него. Уровень сложности вопроса соответствует знаниям учеников 5 - 9 классов. Здесь же находятся ответы по заданному поиску, которые вы найдете с помощью автоматической системы. Одновременно с ответом на ваш вопрос показаны другие, похожие варианты по заданной теме. На этой странице можно обсудить все варианты ответов с другими пользователями сайта и получить от них наиболее полную подсказку.
Program Task1 ;
var
a, b, c, d, i : integer ;
begin
for i : = 1000 to 9999 do
begin
a : = i mod 10 ;
b : = i div 10 mod 10 ;
c : = i div 100 mod 10 ;
d : = i div 1000 mod 10 ; if (a + d = b + c ) then writeln(i) ;
end ;
end.