Ве́кторная гра́фика<span> — способ представления объектов и изображений вкомпьютерной</span> графике<span>, основанный на использовании элементарных геометрических объектов, таких как точки, линии, сплайны</span><span> и многоугольники. <u><em> растровая графика-сетка пикселий или светных точек</em></u></span>
Вроде так работает
var
s:string;
i:integer;
begin
readln(s);
write(s[1]);
for i:=2 to length(s) do if s[i-1] = '_' then write(Upcase(s[i])) else write(trim(s[i])); <span>//это в одну строчку с предыдущей </span>
end.
Это стандартно основные функции любого процессора следующие: выборка (чтение) выполняемых команд; ввод (чтение) данных из памяти или устройства ввода/вывода; вывод (запись) данных в память или в устройства ввода/вывода; обработка данных (операндов)то есть делает работу осуществляя задачи на ПК))Это все функции!Выбирай те,которые тебе нужно!
Var x,y,z: real;
t: integer;
begin writeln('введите х и у');
readln(x,y);
z:=sqrt(sqr(x)-sqr(y));
t:=0;
while (z>0,1) do
begin t:=t+1;
z:=0,98*z; {если 2% от изменяющегося расстояния до пола;
если же имеется ввиду 2% от исходного расстояния,
то нужно будет ввести новую переменную
или присвоить исходное значение z, например х,
то есть сразу после z:=sqrt(sqr(x)-sqr(y)); написать x:=z;
Формула (оператор) <span>z:=0,98*z; изменится так:
</span> z:=z-x*0,98}
end;
writeln('палка упадет через ', t,' мин.');
end.
Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
End.