var i, j, k, p: integer; a, b: array[1..10] of integer; begin k : = 0; for i : = 1 to 10 do begin a[i] : = random(20) - 10; write(a[i]: 3); if a[i] > 0 then begin k : =... Подробнее

а после 18 какое число идет? ? если 108 ,то тогда получается так 2*3=6, 3*6=18, 6*18=108,получается что первое число умножается на второе,второе на третье,третье на четверное и т.д... Подробнее

клинопись... Подробнее

954-459=495                                      ... Подробнее

мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.... Подробнее

в не указан   шаг изменения x , допустим он равен 1 var x,y: real; begin x: =1; while x< =10 do begin y: =1/x-5; writeln(y: 8: 2); x: =x+1; end; end.  ... Подробнее

program p_1 var a: string begin writeln ('vvedite nazvanie rek'); read (a); if (a='волга,днепро,нёман,енисей')then writeln ('в беларуси протекают только днепро,нёман'); end. &nb... Подробнее

program xxx;   s : string;   a : integer; begin     writeln('введите строку символов: '     readln (s);     a: = length(s);  ... Подробнее

1)10см=3,937дюма dpi - точек на дюйм 3,937*1000=3937 - точек 3937*3937=15499969 точек каждая точка кодируется 2-мя байтами  всего  30999938 байт 1 мегабайт = 1024*1024=1... Подробнее

если есть д ш и в то это не куб а параллелипипед var  a,b,c,r: real; begin readln(a,b,c,r); if (2*r< a) and (2*r< b) and  (2*r< c) then writeln('поместится')... Подробнее

конечно .pas! простой вопрос!... Подробнее

program xxx;     var i, n : integer;                       s : real;           &nbs... Подробнее

разделим монеты на кучки 1002 1002 и одна монета 1-е взвешивание сравниваем 1002 и 1002 если они одинаковые то они настоящие и значит осталось сравнить одну монету с какой-нибудь и... Подробнее

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')... Подробнее

пример программы для паскаль program a; const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] &l... Подробнее

а) наименование товаров, цена за единицу товара, количество каждого товара б) общая сумма покупки, сумма денег переданная продавцу в) программа телепередач, название фильма г) набо... Подробнее

проводник - абориген. потому что если бы он спросил у пришельца, которые всегда лгут, "кто ты? ", то тот солгал, сказав "абориген". и проводник пришел и сказал правду. а если бы пр... Подробнее

по углам комнаты расставить 4 стула и   около каждой стены по одному ( ещё 4 стула). всего 8 стульев : )... Подробнее

вот проверила, так работает. нормально?   program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,... Подробнее

число-общее столица росси - единичное учебник - общее житель москвы - общее столица - общее самая высокая гора - единичное пушкин - единичное сказочный персонаж - общее баба яга- е... Подробнее