Помогите,пожалуйста,составить программу в PascalABC.NET Рассмотрите ряд натуральных...

Question

Помогите,пожалуйста,составить программу в PascalABC.NET Рассмотрите ряд натуральных чисел от 1 до 100. Каждое четное число в этом ряду увеличьте в 2 раза, а каждое нечетное – в 3 раза. Результат выведите на экран

Answer 1

Ответ:

Объяснение:

var

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

begin

for i:=1 to 100 do

begin

if (i mod 2 = 0) then

begin

b:=i*2;

write(b);

end else

if (i mod 2 <> 0) then\

begin

b:=i*3;

write(b);

end;

end.

Comments

Программа не работает

---

var
a,b,c,s,i,k:integer;
begin
for i:=1 to 100 do
begin
if (i mod 2 = 0) then
begin
b:=i*2;
write(b,' ')
end else
if (i mod 2 <> 0) then
begin
b:=i*3;
write(b,' ');
end;
end;
end. попробуй вот так. У меня все норм

---

Спасибо большое

Answer 2

Для версии 3.7.1 решение в одну строку:

## (1..100).Select(n -> n * if n.IsEven then 2 else 3).Print