Сна паскаль 1)заполните таблицу из 25-ти чисел последовательностью: 0,5,10,15,20.. 2)заполните таблицу из 50-ти чисел сдедующей последовательностью: 2,5,2,5, 3)заполните таблицу 20-ю первыми натуральными числами , делившимся нацило на 11.
Program lab3;const n=10; {количество элементов в массиве} var A:array [1..n] of real; {объявление массива А} i:byte; {переменная для циклов} b:boolean; {идентификатор роста}begin writeln('vvedite tselie chisla matrici A[',n,',',n,']'); for i:=1 to n do begin {циклвводавмассив} write('A[',i,'] = '); readln(A[i]); end; writeln; writeln('matraca imeet vid: '); for i:=1 to n do begin {циклвыводамассива} write(A[i]:3:3,' '); end; writeln; b := true; for i:=1 to n-1 do {цикл определения роста} if (A[i] > A[i+1]) then begin {если текущий больше следующего} b := false; {значит масив невозростающий} break; end; if (b) then writeln('Masiv A - vozrostaushaya posledovatelnost''') else writeln('Masiv A - ne vozrostaushaya posledovatelnost'''); readln;
1) Выражение "Семь пядей во лбу " : возникло на основе того , что по высоте лба можно судить об умственных человека . Старинная мера длины ,пядь ,равнялась расстоянию между концами растянутых большого и указательного (меньшая пядь) или большого и среднего пальцев (большая пядь ); 2)Так говорят о человеке крепкого , крупного телосложения - его ширина плеч равна косой сажени - около 2х мет.(расстояние от пальцев вытянутой вверх руки до ступни противоположной ноги.); 3) "Борода с вершок, а слов с мешок" : борода с 44 см , а слов с мешок ( вершок от слова "верх") ; 4)Быть проницательным , дальновидным , предусмотрительным .
1. Развития схемотехники и открытия полупровниковых элементов позволило отказаться от радио ламп и построить компактные вычислительные блоки на базе транзисторов. Скорость вычисления достигается за счет быстрого срабатывания затворов транзисторов что ускоряет переключение ключей в логических схемах. 2. Потому что ученые и маркетологи США поняли что нужно как можно больше людей привлекать в мир пк за счет упрощения программ, делая их более интуитивными и умными. Так стали появляться Текстовые,Табличный, графические редакторы и так далее
var A:array [1..n] of real; {объявление массива А} i:byte; {переменная для циклов} b:boolean; {идентификатор роста}begin writeln('vvedite tselie chisla matrici A[',n,',',n,']'); for i:=1 to n do begin {циклвводавмассив} write('A[',i,'] = '); readln(A[i]); end; writeln; writeln('matraca imeet vid: '); for i:=1 to n do begin {циклвыводамассива} write(A[i]:3:3,' '); end; writeln; b := true; for i:=1 to n-1 do {цикл определения роста} if (A[i] > A[i+1]) then begin {если текущий больше следующего} b := false; {значит масив невозростающий} break; end; if (b) then writeln('Masiv A - vozrostaushaya posledovatelnost''') else writeln('Masiv A - ne vozrostaushaya posledovatelnost'''); readln;