Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

найти кол-во 3х-значных чисел у которых сумма цифр является чётным числом? pascal

5-9 класс

So2705 11 мая 2014 г., 11:28:47 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
SvetaMiller
11 мая 2014 г., 14:18:59 (10 лет назад)

var

i, a, b,c, s :integer;

begin

s:= 0;

for i:=100 to 999 do

begin

a:= i div 100;

b:= (i - a * 100) div 10;

c:= i mod 10;

if ((a + b + c) div 2 = 0) then

s:= s + 1;

end;

writeln (s);

end.

На компе нету паскаля, если что-то неработает пиши

P.S. Нравится решение ? Отметь как лучшее!

Ответить

Другие вопросы из категории

В следующих примерах укажите информационный носитель и форму предстовления информации:

а) Табличка с номером дома
б) Почтовая открытка
в)Билет в поезд
г)Газета
д) Диск со сборником мультфильмов

Информатика 8 класс срочно помогите сделать

Задание с развернутым ответом. Заполните таблицу, содержащую основные характеристики устройств долговременной памяти.

Читайте также

Решите 2 программы. 1) Найдите количество двухзначных чисел, которые делятся на сумму своих цифр. 2) Составьте программу вычисления

количества трехзначных чисел, у которых сумма цифр является чётным числом.

ОЧЕНЬ СРОЧНО!!!

1.Составьте программу, выводящую на экран все двухзначные числа, у которых сумма цифр равна 8.

2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!



Вы находитесь на странице вопроса "найти кол-во 3х-значных чисел у которых сумма цифр является чётным числом? pascal", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.