Предмет: Информатика, автор: mafiozznik

Найдите сумму нечетных чисел от а до 100, а вводится с клавиатуры (Pascal ABC) ​

Ответы

Автор ответа: Аноним
1

Ответ:

program aaa;

type iint = 1..100;

var a: iint;

    i, s:integer;

begin

readln(a);

s:=0;

for i:=a to 100 do

if odd(i)  then

 s:=s+i;

writeln(s)

end.

Объяснение:

Похожие вопросы
Предмет: Русский язык, автор: катя159
 Озаглавьте текст.Выпишите ключевые слова, например:1) описание: ______
                                                                                                            ______
                                                                                                            ______
                                                                                        2) повествование: ______
                                                                                                                     ______
                                                                                                                     ______
                                                                                       3) рассуждение:     ______
                                                                                                                     ______
                                                                                                                     ______
 Описание - Под окнами росла большая черёмуха. Весной она зацветала так пышно, что казалось – это уже не дерево, а белое облако, каким-то чудом опустившееся на землю. Летом всё дерево было осыпано тёмно-синими, почти чёрными ягодами величиной с горошину, которые мы поедали в огромных количествах. А зимой… О! Зимой было самое интересное, потому что на черёмухе в это время года бывали частыми гостями снегири.На ней лишь одни голые, корявые темно-серые ветки,опушенные сверху белым снежком, а на ветках сидят красногрудые птички. 
Повествование - Много лет прошло с тех пор, но я и сейчас очень легко представляю себе эту сказочную картину. Ее хорошо можно разглядеть,если забраться на подоконник и прижаться лицом к стеклу так,чтоб видеть верхние ветки дерева.Как я мечтал поймать хоть одного из вас и держать дома в клетке! Я воображал, что был бы самым счастливым человеком на свете, если бы мне подарили вдруг эту птицу.Но мое детство так и прошло без снегиря. Никто никогда не дарил мне ни снегиря, ни какой-нибудь другой птички в клетке.  
Рассуждение - Но я не жалею об этом,потому что мне  не пришлось держать вольную птицу в клетку. Она могла летать и наслаждаться свободой. Я не смог бы испытать, если бы вдруг стал обладателем пленницы. Но зато хорошо знаю, что был самым счастливым человеком на свете именно тогда, когда смотрел на моих любимых пичужек из окна и предавался своим мечтам.