Byuzensan
4 год назад
Пожалуйста посчитайте всё на паскале, пожалуйста!!!
ОТВЕТЫ
Драгомир
Oct 24, 2020
//PascalABC.Net 3.2
{1}
begin
range(1,readinteger('Ввод n: ')-1).Print;
end.
{2}
begin
range(-1*(readinteger('Ввод n: ')), -1).Reverse.Print;
end.
{3}
begin
write(range(2, readinteger+1).Sum);
end.
{4}
begin
var sum:=-1*readinteger+readinteger+1;
write ('Нечетных чисел: ', (sum div 2)+(sum mod 2));
end.
{5}
begin
for var i:=0 to 255 do if (i mod 3)=0 then print(i);
end.
{1}
begin
range(1,readinteger('Ввод n: ')-1).Print;
end.
{2}
begin
range(-1*(readinteger('Ввод n: ')), -1).Reverse.Print;
end.
{3}
begin
write(range(2, readinteger+1).Sum);
end.
{4}
begin
var sum:=-1*readinteger+readinteger+1;
write ('Нечетных чисел: ', (sum div 2)+(sum mod 2));
end.
{5}
begin
for var i:=0 to 255 do if (i mod 3)=0 then print(i);
end.
445
Смежные вопросы: