Var
a : array [1..42] of integer;
sum : integer;
i : byte;
begin
randomize;
for i := 1 to 42 do begin
a[i] := random(30) + random(20);
write(a[i], '|');
sum += a[i];
end;
writeln();
if sum >= 1000 then writeln('Число четырехзначное! Всего: ', sum)
else
writeln('Число НЕ четырехзначное! Всего: ', sum)
<span>end.
----</span>
массив заполняется случайным образом
Гипертекст - вступают текстовые только объекты - словосочетания или слова; гипермедиа - вступают графические, текстовые и звуковые объекты. Общего у них то что в обоих есть текстовые объекты. Разница между ними: в гипертекст только текстовые объекты, а гипермедиа и текстовые и звуковые, а также графические.
Uses crt;
Var A:array[1..10]of integer;
q,w,i,k,j:integer;
begin
randomize;
for q:= 1 to 10 do
begin
A[q] := random(256);
write(A[q]:4)
end;
for i := 1 to 9 do
for j := 1 to 10 - i do
if A[j] > A[j + 1] then begin
k := A[j];
A[j] := A[j + 1];
A[j + 1] := k;
end;
for i:=1 to 10 do
w:=(A[1]+A[10])/2;
write(w)
Программа работает
var
<span>n,</span><span>i,j,</span><span>s :integer;
</span>begin
Write('введите число');
Readln(n);
for i:=1 to n
do begin
s:=0;
for j:=1 to i div 2 do begin
if i mod j=0 then inc(s);end;
if s=1 then Writeln(i);
end;end.
<span>
П.С. программа находит все простые числа до заданного тобой числа</span>
Ответ Г
1 км=1024м
1м=64см
1024м=65536см
1км=65536см
65536см=128сек
Найдем скорость, 65536/128=512см/с
100м=10000см
Теперь находим за сколько он пробежит 100 метров:
10000/512=19.5 и округляжем до целого числа получаем 20)