9 БАЛЛОВ!!!! СРОЧНО!!!! Помогите по информатике Паскаль 8 класс!!
Если сумма цифр трёхзначного числа чётная, то разделить на 2, если нет умножить на 2
Ответы
Ответ дал:
0
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.
Ответ дал:
0
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
Вас заинтересует
2 года назад