Вопрос по информатике:
Даю 25 баллов.Помогите с информатикой составить программы в Паскале. Буду благодарна
Пожаловаться
- 08.03.2018 00:09
- Информатика
- remove_red_eye 14476
- thumb_up 5
Ответы и объяснения 1
1.
var
n: integer;
begin
read(n);
write(n div 100 + n div 10 mod 10 + n mod 10)
end.
2.
var
d: real;
n: integer;
begin
read(d);
n := round(d * 100);
write(abs(n div 1000 + n div 100 mod 10 - n div 10 mod 10 - n mod 10));
end.
3.
var
d: real;
n: integer;
begin
read(d);
n := round(frac(d) * 1000);
write((n div 100 + n div 10 mod 10 * 2 + n mod 10) / 2);
end.
var
n: integer;
begin
read(n);
write(n div 100 + n div 10 mod 10 + n mod 10)
end.
2.
var
d: real;
n: integer;
begin
read(d);
n := round(d * 100);
write(abs(n div 1000 + n div 100 mod 10 - n div 10 mod 10 - n mod 10));
end.
3.
var
d: real;
n: integer;
begin
read(d);
n := round(frac(d) * 1000);
write((n div 100 + n div 10 mod 10 * 2 + n mod 10) / 2);
end.
Пожаловаться
- 09.03.2018 16:14
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы