Вопрос по информатике:
9 БАЛЛОВ!!!! СРОЧНО!!!! Помогите по информатике Паскаль 8 класс!!
Если сумма цифр трёхзначного числа чётная, то разделить на 2, если нет умножить на 2
Пожаловаться
- 22.03.2016 11:09
- Информатика
- remove_red_eye 17532
- thumb_up 46
Ответы и объяснения 2
Var
x, s: integer;
k: real ;
begin
readln(x);
if (x > 99) and (x < 1000) then
while x > 0 do
begin
s := s + x mod 10;
x := x div 10;
end;
k := s / 2;
if s mod 2 = 0 then
writeln(k)
else
writeln(s * 2);
end.
x, s: integer;
k: real ;
begin
readln(x);
if (x > 99) and (x < 1000) then
while x > 0 do
begin
s := s + x mod 10;
x := x div 10;
end;
k := s / 2;
if s mod 2 = 0 then
writeln(k)
else
writeln(s * 2);
end.
Пожаловаться
- 23.03.2016 15:29
- thumb_up 16
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
if (n div 100+(n div 10) mod 10+n mod 10).IsEven then Writeln(n/2)
else Writeln(2*n)
end.
Пример
n= 319
638
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
if (n div 100+(n div 10) mod 10+n mod 10).IsEven then Writeln(n/2)
else Writeln(2*n)
end.
Пример
n= 319
638
Пожаловаться
- 24.03.2016 10:49
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы