веб-страница - это страница имеющая свой уникальный адрес. а веб-сайт - это коллекция веб-страниц, обьеденённая внутри доменного имени.
вот))
daverkieva568
02.01.2023
Первая программа может выглядеть так: uses crt; const n=10; type mas=array [1..n] of integer; var a: mas; i, x: integer; priznak: boolean; begin clrscr; priznak: =false; writeln(' massiv: '); for i: =1 to n do begin a[i]: =-100+random(200); write(a[i]: 5); end; writeln; write(' x = '); readln(x); writeln; for i: =1 to n do if x=a[i] then begin writeln (' x = ', a[i], ' index = ', i); priznak: =true; end; if priznak=false then writeln (' '); readln; end. 2. а вот реверс: uses crt; const n=10; type mas=array [1..n] of integer; var a: mas; i: integer; begin clrscr; writeln(' massiv: '); for i: =1 to n do begin a[i]: =-100+random(201); write(a[i]: 5); end; writeln; writeln(' revers: '); for i: =n downto 1 do write(a[i]: 5); writeln; readln; end. и. наконец, последняя программа: uses crt; const n=5; var i, x : integer; p: longint; begin clrscr; p: =1; writeln(' wwod massiva: '); for i: =1 to n do begin readln (x); p: =p*x; end; writeln; writeln(' p = ', p); writeln; readln; end.
gri-7410
02.01.2023
Program prog; uses crt; var a: array[1..100] of integer; k,s,i: integer; begin clrscr; for i: =1 to 10 do begin write('a[',i,'] = '); readln(a[i]); end; for i: =1 to 10 do begin if a[i] mod 3 = 0 then begin s: =s+a[i]; k: =k+1; end; end; writeln('количество чисел, кратных 3 = ', k); writeln('сумма чисел, кратных 3 = ', s); end.
веб-страница - это страница имеющая свой уникальный адрес. а веб-сайт - это коллекция веб-страниц, обьеденённая внутри доменного имени.
вот))