Компью́тер — устройство или система, способная выполнять заданную, чётко определённую, изменяемую последовательность операций.Это чаще всего операции численных расчётов и манипулирования данными, однако сюда относятся и операции ввода-вывода. Описание последовательности операций называется программой.
С помощью компьютера можно :
*делать вычисление
*создавать базу данных
*управлять устройствами
*Набирать текст , просматривать фильм
*Современные суперкомпьютеры используются для компьютерного моделирования сложных физических, биологических, метеорологических и других процессов и решения прикладных задач
8064 Кбайт
........................
var
a,b,c,d:real;
z,x:integer;
begin
z:=0;
x:=0;
readln(a);
readln(b);
readln(c):
readln(d);
if (b mod a)=0 then writeln('a делитель числа b');
if (с mod a)=0 then writeln('a делитель числа с');
if (в mod a)=0 then writeln('a делитель числа в');
if a>b then z:=z+1;
if b>c then z:=z+1;
if c>d then z:=z+1;
if z=3 then writeln('числа расположены по убыванию');
z:=0;
if a mod 5=0 then x:=x+1;
if a mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if b mod 5=0 then x:=x+1;
if b mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if c mod 5=0 then x:=x+1;
if c mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if d mod 5=0 then x:=x+1;
if d mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
writeln(z,'чисел делятся на 5 и 7 ');
z:=0;
if a<=7 then z:=z+1;
if b<=7 then z:=z+1;
if c<=7 then z:=z+1;
if d<=7 then z:=z+1;
if z>0 then writeln('есть числа больше или равные 7')
end.
предпоследнее не могу прочесть задание, так что сорри.
<h3>PascalABC.NET 3.3, сборка 1627 от 27.01.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
procedure SortByInsert(a: array of integer);
// сортировка простыми вставками
begin
for var i := 1 to a.Length - 1 do
if a[i - 1] > a[i] then begin
var (p, j) := (a[i], i - 1);
while (j >= 0) and (a[j] > p) do
(a[j + 1], j) := (a[j], j - 1);
a[j + 1] := p
end
end;
begin
var a := ArrRandom(15, -50, 50); a.Println;
SortByInsert(a); a.Println
end.
<h2>Пример</h2><h3>-47 -37 -9 44 7 43 44 -10 5 -12 4 -24 7 21 -47</h3><h3>-47 -47 -37 -24 -12 -10 -9 4 5 7 7 21 43 44 44</h3>
А=128-12=116. Здесь просто заметим, что цикл прокручивается 4 раза.
Б=4. Здесь заметим, что все зависит от последнего значения j