uses crt; var a: array [1..99, 1..99] of integer; i,j,n,m,x,z: integer; beginclrscr; randomize(); z: =0; writeln('введите количество строк'); readln(n); writeln('введите количество... Подробнее

если (условие 1) то     выражение 1или если(условие 2) то     выражение 2или если (условие 3) то     выражение 3иначе        ... Подробнее

Program parampampam;   uses crt;   var  i: integer; {счетчик}  s: integer;   begin  clrscr; {очистка экрана}  writeln ('программа выво... Подробнее

верные ответы: 1) б2) в... Подробнее

Program parampampam;   uses crt;   var  i: integer; {счетчик}  s: integer;   begin  clrscr; {очистка экрана}  writeln ('программа выво... Подробнее

операционной системой является... Подробнее

var d,r: integer; beginwriteln('введите значение r: '); readln(r); d: =2*r; writeln('d = ',d); end.... Подробнее

var a: integer; begin for a: =1 to 10 do writeln(a,'^3=',sqr(a)*a); end.... Подробнее

Вообще порядок будет "бавегд" (сам только что создал такие файлы и отсортировал их).... Подробнее

program gg; var i,s: integer; begin   for i: =10 to 50 do   if i mod 2=0 then s: =s+i;   writeln('сумма всех четных чисел от 10 до 50 равна ',s) end.... Подробнее

      все просто     +116=1110100;   -116=0001011 ... Подробнее

var a,n,s: integer; begin   s: =1;   n: =1;   while n< =100 do begin     readln(a);     if a mod 3 =0 then s: =s*a;    ... Подробнее

Увы никак. купите новые... Подробнее

windows  1251 вроде и будет... Подробнее

если (условие 1) то     выражение 1или если(условие 2) то     выражение 2или если (условие 3) то     выражение 3иначе        ... Подробнее

1. старший - коля, средний - ваня, младший - саша.... Подробнее

1.var a,b,c: real; beginread(a,b,c); wrteln((a+b+c)/ 3); end.2. a=[tex]2 + \frac{b}{c} [/tex]b=[tex] \frac{4}{2a - |b| + 5} [/tex]c=[tex] \sqrt{ {a}^{2} + b \times b } [/tex]... Подробнее

вот, , тут всё понятно... Подробнее

скорее всего это (12; 21)... Подробнее

####################... Подробнее