Регистрация
Войти
Стать экспертом Правила
Информатика

Пожалуйста посчитайте всё на паскале, пожалуйста!!!

ОТВЕТЫ
//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.
445
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам