procedure summa(s, num: integer);
begin
s:= s + num;
end;
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 do if i mod 2 = 0 then summa(sum, i);
write(sum);
end.
<span>html редактор, xcll редактор, и т.д.</span>
Var x,y,a,b:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ');
ReadLn(y);
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
if ((a<x)and(b<y))or((b<x)and(a<y)) then Write('Можно')
else Write('Нельзя');
End.
Растровая Графика - это технология представления изображений
Изображение - это изображение представленное растровой графикой