var n,s:integer; x1,x2,x3,x4:integer; begin write('Vvedite N = '); read(n); x1:=n div 1000; x2:=n mod 1000 div 100; x3:=n mod 100 div 10; x4:=n mod 10 div 1; s:=x1+x2+x3+x4; writeln(s); end.
{1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран } var L:array [1..9] of byte; n,i:byte; begin N:=9; {считываем с клавиатруры N чисел} writeln('введите масссив'); for i:=1 to n do read(L[i]); writeln; writeln('Массив:');
{вывод на экран массива} for i:=1 to n do write(L[i]:7);{7 позиций под число} end.
{2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.} var K:array [1..22] of byte; n,i:byte; begin N:=22; randomize; for i:=1 to n do k[i]:=2+random(41);{если включая [2,42]} writeln; writeln('Массив:');
{вывод на экран массива} for i:=1 to n do write(K[i]:7);{7 позиций под число} end.
А что не понятного то? элементарно все. я не понял какой именно номер надо по этому все разберу. номер 2: подставляй да и только 1-не подходит в конце код заканчивается на 1110,а как известно ни одного буквы заканчивающейся на 10 или 1110 или 110-нет, 2-не подходит, начало кода 1000.... а как известно ни одной буквы которая начинается на 10 нет, 3-подходит, код можно разделить по буквам 11-л 00-о 01-к 00-о 11-л 010-м 01-к, 4-не подходит код так же начинается на 10. ответ:3 ______ номер 3: тоже все просто тут достаточно знать как переводить из бит в байт, из байта в килобайт а так же формулу для подсчета размера файла пусть v-это размер файла, u-скорость соединения, а t-время, тогда формула будет такая V=u*t переведем минуту в секунды t=1мин=60сек V=512 000бит/сек *60сек= 30 720 000бит(т.к нам нужны килобайты, переводим)=30 720 000бит/8/1024= 3750кб ответ:3750 _________ номер 4 еще проще чем два предыдущих
В этом задании ответ (3)
объясню: изначально подснежник.doc был: D:\2013\Весна\Подснежник.doc потом создали подкаталог "Май", т.е говоря другими словами создали папку, и засунули туда Подснежник.doc и расположения стало таким: D:\2013\Весна\Май\Подснежник.doc , т.е чтобы узнать первоначальное местоположение мы делаем шаг назад
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var a:=ReadlnString('Введите строку символов:').ToCharArray; // Теперь у нас есть исходный массив символов, а для работы нужна строка! a:=a.JoinIntoString('').RegexReplace('\([^\(\)]+\)','').ToArray; a.Println end.