Var a,k:integer; begin writeln('введите число k '); readln(k); writeln('числа кратные ',k,' : '); for a:=1 to k do begin if (k mod a = 0) and (a>9) then writeln(a); end; end.
1)constn=10;var i,k,min:integer; mas: array [1..n] of integer; begin randomize; for i:=1 to n do mas[i]:=random(65); min:=mas[1]; for i:=1 to n do if mas[i] < min then begin min:=mas[i]; k:=i; end; for i:=1 to n do write(mas[i]:4); writeln(); writeln('minimalnoe=',min); writeln('index=',k); end. 2)constn=10;var i,k,min:integer; mas: array [1..n] of integer; begin randomize; for i:=1 to n do mas[i]:=random(65); for i:=1 to n do write(mas[i]:4); for i:=1 to n do if mas[i] mod 3 = 0 then mas[i]:=0; writeln(); for i:=1 to n do write(mas[i]:4); end.
На мое мнение информатика затрагивает все сферы деятельности, поскольку прогресс в компьютерной сфере не стоит на месте, с каждым годом он становится актуальней для всех сфер, так как применяются в обширном круге деятельности. Выполнение логических операций, упрощение действий с приложений, 3d моделирование и другое. Всегда развивается.а в какой степени - так это везде по-разному. Что касается основных составных частей информатики, их три: 1.Технические средства. 2. программное обеспечение. 3 алгоритмическое обеспечение. Направление информатики: 1.технически-инженерное архитектуры вычислительного комплекса. 2.математическое обеспечение. 3.Чисто научное (алгоритмическое).
begin
writeln('введите число k ');
readln(k);
writeln('числа кратные ',k,' : ');
for a:=1 to k do begin
if (k mod a = 0) and (a>9) then writeln(a);
end;
end.