var sum, i: integer; begin sum := 0; for i := 1 to 100 do sum := sum + i; writeln('Сумма всех чисел от 1 до 100: ', sum); end.
№2
var p, i: integer; begin p := 1; for i := 1 to 10 do p := p * i; writeln('Произведение всех чисел от 1 до 10: ', p); end.
№3
У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"
var A, i, k, max: integer; begin i := 3; max := 100; for k := 1 to max do begin A := A + i;write( A, ' '); end; end.
№4
var sum, x: real; a: array[1..10] of real; i: integer; begin sum := 0; for i := 1 to 10 do begin write('Введите ', i, ' число: '); readln(a[i]); sum := sum + a[i]; end;
Снег мягкий, пушистый ложится ковром. И хлопья летят как с небес парашюты. Иду на концерт через парк напролом, Сегодня на сцене весь день лилипуты.
И что-то далёкое с детства пришло, Ворвалось тайком, будто кот в одеяло. И тут же волною приплыло тепло, И радостно сердцу как будто бы стало.
Секундой десятки годов протекли, И так же лилипут выступленье. Но средь временного пространства дали Случайно ворвались два быстрых виденья.
Был главным актёром тогда Коля Манг. Мне имя его не даёт всё покоя. И начал искать средь названий тот ранг, Что выйдет на тайну эстрады героя.
Искать не пришлось мне столетьями их, Друзья меня взяли с собою в походы. И хоть ветер памяти несколько стих, Скажу, что узнал, несмотря на все годы…
Пейзаж колоссальный, красавец- Мангуп! Дорога змеится, внизу- винограды. Но- дрожь пробирает, стучит зуб о зуб, И даже, похоже, туристы не рады…
Какой-то неясный, таинственный шум, Он то- наяву, то в тумане душевном. Пытаюсь уйти от тревожащих дум, Всё вижу вокруг в ореоле волшебном.
Кружится, как в сказке, серебряный свет, Мираж впереди, или жизни картина? Все краски опишет едва ли поэт, И месяц, как долька висит апельсина…
И вспомнил, что видел товарищ тогда, На странной вершине гористого плато. Вина мы не брали, лишь только еда, А, впрочем, оно ведь у всех виновато…
Сказал он наутро, что видел концерт, Куда направляли мы с ним свои ноги. Увидел он будущий свой там мольберт, И как я пишу про Мангуп эти строки…
Но именно там как в «окошко» глядел, Сквозь времени линзу, астрал-телескопа… А я сомневаться рассказу посмел, Как рыба в легенду морского потопа.
Мангуп по местам всё расставил теперь, Видение гор лишь под утро умчалось… Коль в «завтра» одна хоть имеется дверь, То ключ от замка нам найти уж осталось…
