var s,k:integer;
Begin
read(k);
s:= k div 100 + k div 10 mod 10 + k mod 10;
writeln(s);
End.
Смотря какое.
Растровое - из пикселей.
Векторное - из описания геометрических фигур.
Фрактальное - по уравнению.
Const
N = 10;
var
A: array[1..N] of integer;
function Fun: integer;
var
i, M: integer;
begin
writeln('Введите число M=');
readln(M);
for i := 1 to N do
if A[i] = M then Fun := i;
end;
procedure CreateMassive;
var
i: integer;
begin
for i := 1 to N do
begin
A[i] := Random(199) - 100;
write(A[i],' ');
end;
Writeln;
end;
begin
CreateMassive;
Writeln(Fun);
end.
вот вариант исправления который работает, хотя конечно не факт что он работает как там кто-то задумывал)))
не понятно было назначение функции Fun потому она делает поиск номера элемента равного М
а вообще глобальные переменные это зло. Так что проектирование тут в корне не верно
Наименьшим элементом на экране является пиксель
С графической, текстовый и звуковой