tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Склавиатуры вводится число до
Склавиатуры вводится число до 1000. определить какой сотне принадлежит число. определить чётная или нечётная сумма цифр
PAMAGITE12
2 19.06.2019 06:50
0
Ответы
tshaxzoda
15.07.2020 16:28
Var x, a, b, c, s: integer;
begin
write('Введите число: '); readln(x);
a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;
s := a + b + c;
writeln('Число принадлежит ', a, ' сотне');
if(s mod 2 = 0) then writeln('Сумма цифр четная')
else writeln('Сумма цифр нечетная');
end.
a - сотни
b - десятки
с - единицы
Надеюсь я правильно тебя понял.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nikoldasha421
23.11.2020 18:46
Https://prnt.sc/voihdy Между населенными пунктами A,B,C,D,E,F построены дороги, протяженность который приведена в таблице:...
strelnikovavik
23.11.2020 18:46
Система управления базами данных (СУБД) – это: набор программ, обеспечивающий работу всех аппаратных устройств компьютера и доступ пользователя к ним прикладная программа для...
ifreemadozzlqu
28.07.2019 13:00
Написать программу определения стоимости разговора по телефону. цену за минуту разговора 1.4 руб. установите либо через константу, либо через оператор присваивания. по субботам...
az12345687
28.07.2019 13:00
Сообщение на тему информационые технологии в жизни человека...
burdyugova48
10.12.2020 13:27
Информатика. Создание Ёлки в программе КуМир. Буду очень благодарен за проделанную работу. Заранее Нужно сделать, что-то подобное (см. картинку). Хотелось бы чтобы ответом...
nfedorova868
21.05.2019 16:50
Напечатать таблицу перевода долларов сша в рубли по текущему курсу. (курс вводится с клавиатуры.) п.с. составить программу...
FWEAAFE
21.05.2019 16:50
Дана арифметическая прогрессия 2,6,10, программу определения номера первого члена прогрессии,превысившее данное число d.вывести искомый номер и все члены прогрессии....
Кукамука
21.05.2019 16:50
6. написать программу тремя с циклами «до», «пока» и с параметром ). : ввести n чисел. найти сумму четных из них. проанализируйте решения. какое проще и почему?...
zaika787
10.01.2022 20:57
1. Текст занимает 1/8 Кбайта памяти компьютера. Сколько символов содержит этот текст? 2. Текст занимает полных 10 страниц. На каждой странице раз мещается 30 строк по 70 символов...
EGORchikchik228
10.01.2022 20:55
1. Створіть нову програму мовою Руthon. На вході маємо цілочисельну матрицю, яка складасться з n рядків. Задача програми: 1) піднести кожен елемент до квадрата та вивести нову...
Популярные вопросы
Почему угасла любовь обломова и ольги?...
3
Какая зависимость существует между состоянием атома углерода и пространственным...
3
1) заполните таблицу «соединения щелочноземельных металлов»названиекарбонат...
1
Соотнесите периоды крестовых походов с событиями. заранее !...
1
Буду за полное решение и объяснение. (хотя бы какого то номера)перевод №...
1
Перерисуте этот рисунок в тетрадь и покажите, как пройдёт свет от источника...
2
Как с амперметра с пределом измерения 50ma измерить постоянное напряжение...
2
Объясните как решать( не используя photomath)...
3
1)бейсик dim k, s as integer k =50 s=1024 while s 0 s =s /2 k=k-3 wend print...
2
Буквосполучення дж, дз позначають один звук у рядку: а) відзнака, воджу,...
2
begin
write('Введите число: '); readln(x);
a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;
s := a + b + c;
writeln('Число принадлежит ', a, ' сотне');
if(s mod 2 = 0) then writeln('Сумма цифр четная')
else writeln('Сумма цифр нечетная');
end.
a - сотни
b - десятки
с - единицы
Надеюсь я правильно тебя понял.