сервис вопросов и ответовНаписать программу:"Дано четырехзначное число.Что больше:сумма цифр,стоящих на четных местах,или сумма цифр,стоящих на не четных местах?"
5-9 класс|
|
Nata770910
20 марта 2014 г., 11:44:13 (10 лет назад)
PaNzArik
20 марта 2014 г., 12:30:33 (10 лет назад)
var a,s1,s2:integer;
begin
read (a);
if (a>=1000)and (a<=9999)then
begin
s1:=(a mod 10) + ((a mod 1000) div 100);
s2:=(a div 1000) + ((a mod 100) div 10);
if (s1>s2)then writeln ('Сумма цифр,стоящих на четных местах больше суммы цифр, стоящих на нечетных местах');
if (s1<s2)then writeln ('Сумма цифр,стоящих на нечетных местах больше суммы цифр, стоящих на четных местах');
if (s1=s2)then writeln ('Сумма цифр,стоящих на четных местах равна сумме цифр, стоящих на нечетных местах');
end
else writeln ('Вы ввели не 4-ёхзначное число');
end.
Ответить
Другие вопросы из категории
Помогите решить задачи по информатике, пожалуйста !
1) Имеются два кувшина емкостью 3л и 8л. Напишите алгоритм , выполняя который можно набрать из реки 7л воды. ( разрешается пользоваться только этими кувшинами).
2) Разведывательный дозор в составе двух человек подошел к реке. Мост был разрушен а река слишком глубока и широка чтобы переправиться через нее вброд или вплавь. К счастью около берега в маленькой лодке проплывали два мальчика. Как переправиться на этой лодке через реку если она может выдержать либо одного взрослого либо двух мальчиков?
Программы, с помощью которых пользователь решает свои информационные задачи, не прибегая к программированию, называются: а) драйверами
Б) сервизными программами
В) прикладными программами
Г) текстовыми редакторами
Два текста содержат одинаковое количество символов. Первый текст составлен в алфавите мощностью 1024 символов, а второй текст – в алфавите из 32 символов.
Во сколько раз количество информации во втором тексте меньше, чем в первом?
В ответе укажите только число
Читайте также
1.Дано целое число N.Написать программу ,увеличивающую число в 3 раза ,если оно больше нуля
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программу , которая выводит сначала большее число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ
1) дано четырёхзначное число. вывести максимальную и минимальную цифру. pascal abc
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
1.Составьте программу, выводящую на экран все двухзначные числа, у которых сумма цифр равна 8.
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!
Вы находитесь на странице вопроса "Написать программу:"Дано четырехзначное число.Что больше:сумма цифр,стоящих на четных местах,или сумма цифр,стоящих на не четных местах?"", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.