Пожаловаться
- 02.07.2018 17:12
- Информатика
- remove_red_eye 6367
- thumb_up 23
Ответы и объяснения 1
//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.
Пожаловаться
- 03.07.2018 09:41
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы